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Task Battery Description 


ABSTRACT 

The Multi-Attribute Task (MAT) Battery provides a benchmark set of tasks for use 
in a wide range of laboratory studies of operator performance and workload. The battery 
incorporates tasks analogous to activities that aircraft crewmembers perform in flight, 
while providing a high decree of experimenter control, performance data on each subtask, 
and freedom to use non-pilot test subjects. Features not found in existing computer-based 
tasks include an auditory communications task (to simulate Air Traffic Control communi- 
cation), a resource management task permitting many avenues or strategies of maintaining 
target performance, a scheduling window which gives the operator information about 
future task demands, and the option of manual or automated control of tasks. Perform- 
ance data are generated for each subtask. In addition, the task battery may be paused and 
onscreen workload rating scales presented to the subject. The MAT Battery requires a 
desktop computer (80286/386/486 processor) with color graphics (at least 640 x 350 pixel). 
The communications task requires a serial link to a second desktop computer with a voice 
synthesizer or digitizer card. 


TASK BATTERY DESCRIPTION 

The MAT Battery primary display, depicted in Figure 1, is composed of four sepa- 
rate task areas, or windows, comprising the monitoring, tracking, communication, and 
resource management tasks. A scheduling window is also presented to the subject. These 
are described individually in the sections to follow. 

The experimenter has control of many task parameters through a setup program. 
Details about setup and operation of the MAT Battery are presented in the section on 
"Installing and Running the Battery." Events presented to the subject are controlled by a 
script file which can be easily edited to manipulate task loading. Details about making 
script files are covered in the section on "Script Files." Information and examples of per- 
formance and rating data files generated by the task battery are presented in the section 
entitled "MAT Data Files." Research conducted using the task battery may be found in 
Arnegard ( 1991) and Arnegard and Comstock (1991). 


Monitoring 


The system monitoring tasks are presented in the upper left window of the display. 
The demands of monitoring gauges and warning lights are simulated here. The subject 
responds to the absence of the Green light, the presence of the Red light, and monitors 
the four moving pointer dials for deviation from midpoint. 


The two boxes in the upper portion of this window represent the warning lights. 
The light on the left is normally "on," as indicated by a lighted green area. The subject is 
required to detect the absence of this light by pressing the "F5" key when the light goes 
out. The light on the right is normally "off." When the red light comes on, the subject’s 
task is to respond by pressing the ”F6" key when he or she detects the presence of that red 
light. If using the mouse, correct responses to the warning light task requires pointing to 
the proper boxed area and pressing a mouse button. If the subject does not detect either 
abnormality, the situation reverts to normal status after a selected timeout period (set by 
the experimenter). 
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Figure 1. Multi- Attribute Task Battery Display 




Task Battery Description 


The moving pointer monitoring task consists of four vertical scales with moving 
indicators. In the normal condition, the pointers fluctuate around the center of the scale 
within one unit in each direction from center. If cued by the script, a scale’s pointer shifts 
its "center" position away from the middle of the vertical display to a position either one 
deviation aoove or one deviation below the center. The subject is responsible for detect- 
ing this shift, regardless of direction, and responding by pressing the corresponding func- 
tion key (FI to F4). The appropriate response key is identified below each vertical dis- 
play. 

When this out-of-range status is correctly identified by the subject, feedback is 
given in two ways. First, the pointer of the correctly identified scale moves immediately 
back to the center point and remains there without fluctuating for a period of 1.5 seconds. 
Additionally, a bar at the bottom of the dial is illuminated in yellow. If the subject fails to 
detect an abnormality in the probability monitoring task, the fault disappears after a preset 
time interval (selected by the experimenter). 

If using the mouse version, the subject responds by placing the mouse cursor on the 
appropriate moving pointer scale area which is out of range and pressing a mouse button. 


Tracking 

The demands of manual control are simulated by the tracking task. This task is 
located in the upper middle window. Using the Joystick, the subject keeps the target at 
the center of the window. This task can be automated to simulate the reduced manual 
demands of autopilot. 

This task is a compensatory tracking task and the subject’s task is to keep the target 
in the center of the window, within the dotted lines which form a rectangle. This task can 
be operated in either manual or automatic mode with the current mode shown by 
"MANUAL" or "AUTO" displayed in the lower right corner of the window. In the AUTO 
mode no action is required of the subject. 


Scheduling Window 

The scheduling window lets the subject "look ahead" for up to eight minutes in the 
future at activity of the Tracking and Communication tasks. The scheduling window dis- 
plays the beginning and/or ending (and duration) of these two tasks. The timelines are 
identified by "T" for the tracking task, and "C" for the communication task. The scheduling 
window allows the subject to "see" from 0.0 (present time) to 8.0 minutes into the fiiture. 
The bold bars indicate times when one of these tasks can be expected to be performed by 
the subject. The thin lines indicate times during which these tasks are usually not required 
of the subject. 


Communications 

The communications task simulates receiving audio messages from Air Traffic 
Control. The subject must pay attention to messages for his or her own callsign "NGT504" 
and make frequency changes on the proper Navigation or Communication radio. The task 
messages are presented to subjects through headphones. These messages begin with the 
six-digit call sign, repeated once, and a commandto change the frequency of one of the 
radios listed on the screen. The subject must discriminate his or her callsign, "NGT504," 
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from other three-letter, three-number combinations. The subject’s callsign is displayed at 
the top of the Communications window. Subjects change navigation and communication 
frequencies by using the keyboard arrow keys. The up and down arrow keys are used to 
select the appropriate navigation or communication radio and the left/right arrow keys 
increase or decrease the selected radio frequency in increments of 0.2 Mnz. Once the 
appropriate frequency selection is made, pressing the "Enter" key acknowledges the 
completed change. 

If using the mouse, the appropriate navigation or communication radio is selected 
by placing the mouse cursor on the desired radio or its frequency (such as "COM2 120.9") 
and pressing a mouse button. Frequency changes are made by placing the mouse cursor 
over the left or right arrow and pressing a mouse button. Positioning the mouse cursor 
over the "Enter" box and pressing a mouse button acknowledges the completed change. 


Resource Management 

The demands of fuel management are simulated by the resource management task. 
The goal is to maintain tanks A and B at 2500 units each. This is done by turning On or 
Off any of the eight pumps. Pump failures can occur and are shown by a red area on the 
failed pump. 

Both the Resource Management and Pump Status windows are utilized for the 
resource management task. The Resource Management window provides a diagram of 
the fuel management system. The six large rectangular regions are tanks which nold fuel. 
The green levels within the tanks represent the amount of fuel in each tank, and these 
levels increase and decrease as the amount of fuel in a tank changes. 

Along the lines which connect the tanks are pumps which can transfer fuel from 
one tank to another in the direction indicated by the corresponding arrow. The numbers 
underneath four of the tanks (Tanks A, B, C, and D) represent the amount of fuel in units 
for each of the tanks. This number is updated every 2 seconds as the amount of fuel in the 
tanks increases or decreases. The maximum capacity for either Tank A or B is 4000 units. 
Tanks C and D can contain a maximum of 2000 units each. Finally, the remaining two 
supply tanks have an unlimited capacity. 

Subjects are instructed to maintain the level of fuel in both Tanks A and B at 2500 
units each. This desired level is indicated graphically by a tick mark in the shaded bar on 
the side of these two tanks. The numbers under each of these tanks provide another 
means of feedback for the subject. The shaded region surrounding tne tick mark repre- 
sents acceptable performance. Tanks A and B are depleted of fuel at a selected rate 
(default oi 800 units per minute). Therefore, in order to maintain the task objective, 
subjects must transfer fuel from the lower supply tanks. 

The process of transferring fuel is accomplished by activating the pumps. Each 
pump can only transfer fuel in one direction, as indicated by the corresponding arrow. 
These pumps are turned on when the corresponding number key is pressed by the subject. 
Pressing the key a second time turns that particular pump off and so on. If the mouse is 
used, placing the mouse cursor on the appropriate pump and pressing a mouse button 
toggles the pump from "off’ to "on" or from "on" to "off.” The pump status is indicated by 
the color or the square area on each pump. When that area is not lighted, the pump is off. 
A green light in this area indicates that the pump is actively transferring fuel. 
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The flow rates for each pump are presented in the "Pump Status" window. The first 
column of numbers represents the pump number, one through eight. When a pump is 
activated, its flow rate is presented next to the pump number in this window. When a 
pump is off, its flow rate is zero. 

At the discretion of the experimenter pump failures (faults) may be presented to 
the subject. These are indicated by the appearance of a red light in the square on the 
pump. When this occurs, the pump which is in the fault mode is inactive. Fuel cannot be 
transferred through that pump until the fault is corrected. The subject has no control over 
the fault correction. The duration of the fault is written into the script that directs the 
program. When the fault is corrected, the status of that pump is automatically returned to 
the\>ff' mode, regardless of its status before the fault condition. 

Likewise, when a tank becomes full to capacity, all incoming pumps are automati- 
cally turned "off." For example, if all of the pumps were activated and Tank A reached its 
capacity of 4000 units, Pumps 1, 2, and 8 would automatically turn "off." Furthermore, if a 
tank were to become totally depleted of fuel, all outgoing pumps would be deactivated. 

At the onset of each experiment, Tanks A and B contain approximately 2500 units 
of fuel each and Tanks C and D contain approximately 1000 units of fuel each. All pumps 
are off at the beginning of the task, leaving all strategic action to the operator’s discretion. 

The resource management task can be automated. In the automatic mode switch- 
ing on and off of the pumps is accomplished without subject intervention. To indicate 
automatic mode, all numeric Quantities are no longer displayed and the label "AUTO" 
appears beneath tanks "A" and "B." When switched back to Manual mode, pumps remain 
on or off depending on their last status during "AUTO." 


Workload Rating Scale 

In order to obtain a self reported assessment of the subject’s workload during task 
performance, the task display may be "frozen" and a workload rating screen presented. 
The rating scale used is the NASA Task Load Index (NASA TLX), developed by the 
Human Performance Research Group at the NASA Ames Research Center (Hart and 
Staveland, 1988), and is a multi-dimensional rating scale. A weighted average of ratings 
on six subscales provides an overall workload rating. These subscales are: Mental 
Demand, Physical Demand, Temporal Demand, Own Performance, Effort, and Frustra- 
tion. Subjects are required to rate their perceived exertion on five of these subscales 
(except Own Performance) on a graded scale from "Low" to "High." The Own Perform- 
ance subscale ranges from "Goon' to "Poor." For further information about the NASA- 
TLX and scoring of the scale, refer to the NASA Task Load Index users manual available 
from the Human Performance Research Group, NASA Ames Research Center, Moffett 
Field, California. 

The TLX rating scale can be presented to the subject at any time during the opera- 
tion of the battery. A code for the onset of rating scale presentation can be added to the 
script which generates events for the MAT Battery. At the time of TLX presentation, 
specified by the script, a second screen will appear in place of the MAT Battery. This 
screen is depicted in Figure 2. During the presentation of the second screen, all MAT 
Battery activity is paused and elapsed time frozen until the subject either exits from the 
TLX screen or the maximum time for that screen is reached (Preprogrammed at 60 sec- 
onds). Upon return to the MAT Battery screen, normal operation of the battery resumes. 
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RATING SCALES 


MENTAL DEMAND 



PHYSICAL DEMAND 


TEMPORAL DEMAND 


PERFORMANCE 


EFFORT 


FRUSTRATION 



to Move 


| for Next Scale 


Figure 2. Workload Rating Screen Showing Initial Instructions 



Figure 3. Workload Rating Screen Showing Exit Instructions 
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When the TLX screen is first presented, a pointer appears in the middle of the first 
subscale (i.e., 50). Each gradation represents 5 points; thus, potential scores on each 
subscale range from 0 to 100. The subject will begin with the first subscale and use either 
the mouse or the right and left arrow keys to select a rating value. After making a rating 
on the first subscale, the subject can press the left mouse button, the space bar, or the 
down arrow key to progress to the next scale. After doing this, the pointer of the second 
subscale will become yellow and the first pointer will turn gray. The pointer of the scale 
which is active will be slightly larger and illuminated in yellow as opposed to the gray 
coloring of the other pointers. This process continues until the subject has responded to 
all six subscales. 

After the subject has entered a response for the sixth subscale, the command op- 
tions shown at the bottom of the screen change, as shown in Figure 3. At this point, the 
subject can press the right mouse button, ESCape key, or Return key to exit to the MAT 
Battery primary display. However, if the subject wishes to change any of the responses 
that have already been made, this can be done by pressing the left mouse button, the down 
arrow key, or the space bar. For instance, the subject can press the down arrow key three 
times to return to the third subscale without changing any of the scores on the first two 
subscales. The pointer will turn yellow when a particular rating scale is active and can be 
changed. Changes are made the same way that initial ratings were made, by mouse 
movement or left /right arrow keys. After the subject is satisfied with all responses, the 
right mouse button, ESCape key, or Return key will return him or her to the MAT Battery 
primary display. 


Rating Scale Weightings 

After completingthe experimental session in which workload ratings were ob- 
tained, the program AFTERMAT may be used to obtain scale weightings from the sub- 
ject. The se we ightings are required to calculate the NASA TLX weighted workload 
scores. AFTERMAT requires the subject to make factor comparisons of each pair of 
scale titles (i.e.. Effort vs. Performance). This program is run following any session requir- 
ing the subject to utilize the NASA-TLX Workload Rating Scale. Each pair of scale titles 
(total of 1$) is presented individually on the computer screen. The subject uses the mouse 
or up/down arrow keys to select the variable that he or she felt was more important to the 
experience of workload. After each choice is made, the next pair of scale titles appears on 
the screen, until all comparisons are made. 

Another support program, APPLY WT, i s used by the experimenter to apply the 
rating scale weightings obtained through AFTERMAT to the appropriate rating data file 
or files. APPLYWT prompts the experimenter for the appropriate weighting file and the 
appropriate data file to apply the weights to. The result of running APPLYWT is a new 
rating data file like the original with the addition of mean ratings of the six subscales and 
the weighted combination of the six subscales. Sample data files generated by these two 
programs appear later in the annotated data file section. 
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Installation 

The MAT Battery was written using Microsoft QuickBASIC 4.5, using Screen mode 
9 (EGA mode). Hardware requirements are a PC or compatible with EGA or VGA color 
graphics. An 80286/386/486 processor machine is highly recommended. 

The MAT Battery was designed to use a serial lylinked second computer to gener- 
ate the voice messages for the Communications task. The recommended procedure is a 
serial link between the COM1 port of the task computer through a null modem adapter 
and cable to the COM1 port of the voice computer. While most any voice synthesizer or 
voice digitizer card may be employed in the voice computer, the MATREMX program 
and support files were designed to work with the Heath Voice Card (Model Hv-2000). 
(This Voice Card is available through the Heath Company, Benton Harbor, Michigan 
49022). The voice hardware and software has been tested on a Heath (Zenith) 158, a 
Leading Edge Model D, and a generic 8088 machine. The MAT Battery task computer 
may be used independent of the voice computer if no computer synthesized voice mes- 
sages are desired or if some other method of presenting auditory messages is devised. 

Although the MAT Battery may be run from floppy disks, it is highly recommended 
that it be installed on a hard drive. This is recommended in order to minimize the time 
required for program loading and data file writing and also to insure that sufficient disk 
storage space is available for the data files generated. 

A suggested installation method is to create a Subdirectory entitled "MAT' and 
then to copy all of the MAT Battery program and support files into that Subdirectory. 

Data files generated will also appear in the Subdirectory. 

The second computer with the Voice Card installed and serial link to the Battery 
computer should have the program MATREMX.EXE, and voice message files 
MSG57.VOI and MSG58. VOf installed. In addition, files supplied with the Voice Card 
hardware are required, as well as an addition to the computer boot drive CONFIG.SYS 
file as specified in the Voice Card manual. 


Starting the MAT Battery 

If the Voice computer is being used, first start the program "MATREMX" on the 
voice computer. No other input is required as subsequent control of this program is from 
the MAT Battery computer. The ESCape key exits from this program. 

To start the MAT Battery enter "MAT' or "MATSET4." Either command starts the 
program MATSET4 which permits (1) setting up the serial port, (2) selecting, reading, 
checking, and converting the script file, (3) setting of tracking task gain, (4) changing task 
timeouts and tracking task data recording interval, and (5) selection of MAT task to run 
(Normal or Alternate version). MATSET4 creates two files required by the MAT Battery 
main program and then starts the main program. MATSET4 should ALWAYS be used to 
start tne MAT Battery. 
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Running the Task Battery 


Subject Controls and Commands 

Table 1 shows the controls and commands that are used by the subject when per- 
forming the tasks on the battery. The section entitled "Instructions to Subjects," presented 
later, provides examples of how each task may be introduced to a subject. 


Table 1: MAT Battery Controls and Commands for Subject Use 


Key/Device 

Task Control Function (Subject Use) * 

FI to F4 

Responses to Monitoring Task Moving Pointers 

F5,F6 

Responses to Monitoring Task Warning Lights 

t i 

Communication Task Radio Selection 

«- 

Communication Task Frequency Change 

Enter 

Acknowledge Communications Task frequency change 
completed 

1 to 8 

Resource Management Pump Controls 

Joystick 

Used to control position of Tracking Target during 
"MANUAL" tracking 

Mouse 

(If implemented) Positioning mouse cursor and "Clicking" on 
a screen area may be used to control monitoring, communica- 
tions, and resource management tasks and to select "AUTO" 
or "MANUAL" tracking when permitted 


Active keys for the Workload Rating Screen are displayed on the Workload Rating 
Screen. 


Experimenter Controls and Commands 

Table 2 presents the controls and commands that the experimenter may use to 
control operation of the task while it is running. Table 1 and Table 2 commands may also 
be entered from the keyboard of the serially linked Voice computer, except for Rating 
screen inputs and Unpausing the task. 

Screen background color may be selected at the initial screen showing the task 
display. On this screen, where options are RETURN to begin or ESC to exit, the "X" or 
”C f keys may be used to vary screen background color. Color number is shown in lower 
right of tracking task window. Background of zero is the default, but color 8 may be used 
for a dark blue background. The range is 0-63 but obviously some combinations are not so 
visually pleasing. 
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Table 2: MAT Battery Commands for Experimenter Use 


Key(s) 

Functions Available for Experimenter Use * 

Alt-Fl to Alt-F4 

Begin offset or bias on Scale 1 to 4 

AU-F5 

Alt-F6 

Present green light trial (Green off) 
Present red light trial (Red on) 

Shift-1 to Shift-8 
Alt-1 to Alt-8 

Fail Pump 1 to 8 (Red pump area) 
Fix Pump 1 to 8 (Pump off) 

Shift-Fl 

Shift-F2 

Switch Resource Mgmt to AUTO 
Switch Resource Mgmt to MANUAL 

Shift-F3 

Shift-F4 

Increase Automation (Fewer Tasks, Tasks Easier) 
Decrease Automation (More Tasks, Tasks Harder) 
Each Shift-F3 or F4 changes Task Level one step, 
the range is 1 to 6 

Ctrl-Fl 

Ctrl-F2 

Send Ownship Code to Voice Computer 
Send Other Ship Code to Voice Computer 

Ctrl-F3 

Present Workload Rating Screen (Task is paused 
during ratings; automatically exits rating screen 
after 1 minute) 

Ctrl-F4 

Ctrl-F5 

Ctrl-F6 

Switch Tracking Task to LOW difficulty 
Switch Tracking Task to MEDIUM difficulty 
Switch Tracking Task to HIGH difficulty 
Tracking difficulty changes may be made 
with task in "MANUAL" or "AUTO" mode 

Ctrl-F7 

Switch Tracking Task to "MANUAL" Mode 
Also permits F7 and F8 to change tracking gain and 
display tracking gain value 

Ctrl-F8 

Switch Tracking Task to "AUTO" Mode 

Also disables use of F7 and F8 to make tracking gain 

changes 

Ctrl-F9 

Pause / Unpause All Tasks 

Ctrl-Fl 0 

Exit MAT and Save Data 


The Experimenter can also control the task from the keyboard of the serially linked 
Voice computer using the Table 1 and Table 2 key commands (Exceptions: Rating 
screen inputs and Unpausing the task). 
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Script Files 

A script file controls the sequence and timing of events in the task. Script files are 
ASCII files and may be edited or created using wordprocessors in a NON-Document, 
DOS-Text, or ASCII mode. They may also be created by computer programs designed for 
that purpose. In order to be displayed in the directory of script files of the task setup 
program, script files must have a .DTB extension. 

The format of the script file is illustrated below. Each line contains 3 sets of 
numbers corresponding to the time of the event and also the event type in the following 
order: (1) Hours, (2) Minutes, (3) Seconds, and (4) Event Script code. The event script 
code can be written by the use of numerical or text code. The acceptable codes and the 
corresponding event descriptions are presented in Table 3. The numbers and event script 
codes should be separated by spaces. Event times should be in ascending chronological 
order from the beginning to the ending of the task, as illustrated below. 


Hours 


0 

0 

0 

0 

0 


Minutes 

Seconds (Control Time of Event) 

Event Script Code (Numerical Codes, See Table 3) 


032 

42 

044 

51 

1 0 

82 

1 19 

32 

121 

61 

(OR) 


Event Script Code (Text Codes, See Table 3) 

62031 Led 

0 21 0 MANUAL 
0 2219 SCALE 3 UP 
0 22 30 FAIL PUMP 1 
0 22 45 RED 
0 22 46 SCALE 2 UP 
023 17 SCALE 3 DOWN 
0 23 29 FIX PUMP 1 
0 23 40 RED 
0 23 59 END 
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Table 3: Event Script Codes and Event Descriptions 


Script Code 

(Text) (Numerical) 

Event Description 

RATING 

10 

Present Rating Scale (NASA-TLX) 

SCALE 1 UP 

11 

Monitoring: Scale 1 (FI) Up 

SCALE 1 DOWN 

12 

Scale 1 (FI) Down 

SCALE 2 UP 

21 

Monitoring: Scale 2 (F2) Up 

SCALE 2 DOWN 

22 

Scale 2 (F2) Down 

SCALE 3 UP 

31 

Monitoring: Scale 3 (F3) Up 

SCALE 3 DOWN 

32 

Scale 3 (F3) Down 

SCALE 4 UP 

41 

Monitoring: Scale 4 (F4) Up 

SCALE 4 DOWN 

42 

Scale 4 (F4) Down 

GREEN 

51 

Monitoring: GREEN Light Off (F5) 

COMM TASK START 

55 

Comm. Scheduling Window: 



Start Task Indicator 

COMM TASK END 

56 

Comm. Scheduling Window: 


Stop Task Indicator 

(Controls Scheduling Window Only, 

Not Task) 


COMM TASK OWN 57 

COMM TASK OTHER 58 

RED 61 

MANUAL 71 

AUTO 72 

AUTO END 73 


TRACKING LOW 74 

TRACKING MEDIUM 75 
TRACKING HIGH 76 


Comm. Task: Own Callsign Message 
Comm. Task: Other Callsign Message 

Monitoring: RED Light On (F6) 

Tracking: Start MANUAL Mode 
Tracking: Start AUTO Mode 
Tracking: Display AUTO END Message 
(until code 71 or MANUAL) 

Switch tracking to LOW difficulty 
Switch tracking to MEDIUM difficulty 
Switch tracking to HIGH difficulty 
Tracking difficulty changes may be 
made with task in "MANUAL" or "AUTO" 
mode. 


RESOURCE AUTO 78 Switch Resource Mgmt to "AUTO" 

RESOURCE MANUAL 79 Switch Resource Mgmt to "MANUAL" 


FAIL PUMP 1 
FAIL PUMP 2 
FAIL PUMP 3 
FAIL PUMP 4 
(continued) 


81 Fail Pump 1 on Resource Management 

82 Fail Pump 2 

83 Fail Pump 3 

84 Fail Pump 4 
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Table 3: (Continued) Event Script Codes and Event Descriptions 


Script Code 

(Text) (Numerical) 


Event Description 


FAIL PUMP 5 

85 

FAIL PUMP 6 

86 

FAIL PUMP 7 

87 

FAIL PUMP 8 

88 


Fail Pump 5 on Resource Management 
Fail Pump 6 
Fail Pump 7 
Fail Pump 8 


FIX PUMP 1 
FIX PUMP 2 
FIX PUMP 3 
FIX PUMP 4 
FIX PUMP 5 
FIX PUMP 6 
FIX PUMP 7 
FIX PUMP 8 


91 Fix Pump 1 / Turn off Pump 1 

92 Fix Pump 2 / Turn off Pump 2 

93 Fix Pump 3 / Turn off Pump 3 

94 Fix Pump 4 / Turn off Pump 4 

95 Fix Pump 5 / Turn off Pump 5 

96 Fix Pump 6 / Turn off Pump 6 

97 Fix Pump 7 / Turn off Pump 7 

98 Fix Pump 8 / Turn off Pump 8 


END 


99 End of Script, Terminate Task 


LEVEL 1 
LEVEL 2 
LEVEL 3 
LEVEL 4 
LEVEL 5 
LEVEL 6 


101 

102 

103 

104 

105 

106 


Set Level to Lowest Automation, Tasks Hardest 


Set Level to Highest Automation, Tasks Easiest 


Note: The script codes written in text are the minimum letter combinations necessary for 
interpretation. However , additional text may be added beyond the minimum code (Numerical 
or Text) for annotative purposes. A script file may contain both Numerical and Text event 
codes. Either UPPERCASE or lowercase text may be used. 


Keyboard Control 

As noted previously. Table 2 presents the controls and commands that the experi- 
menter may use to control operation of the task while it is running. Table 1 and Table 2 
commands may be entered from the keyboard of the serially linked Voice computer, 
except for Rating screen inputs and Unpausing the task. 

Control of task events and pacing usually depends on the type and frequency of 
events in a script file. Optional "LEVEL" change codes or commands can cause events in 
the script to be ignored or overruled. For example, at LEVEL 6, several tasks would be 
set to "AUTO" and the script events for the remaining tasks may ignored. Likewise, 
scheduling window information would not reflect task LEVEL changes. Although LEVEL 
changes may be made in the script, normal use of LEVEL changes would be reserved for 
unique experimental situations in which real-time task loading changes are desired. The 
combination of tasks active at the six task levels may be modified in the program. 
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INSTRUCTIONS TO SUBJECTS 


General Introduction 

The overall purpose of this research is to understand human performance during 
varying levels of "busyness." The task which is displayed before you is a computerized 
simulation of some of the kinds of tasks that pilots perform. Each window of the screen 
represents a different kind of task, as indicated by each heading: system monitoring, track- 
ing, communications and resource management, for example. While eventually you will 
be asked to perform all of these tasks at the same time, to become familiar witn the differ- 
ent tasks you will be introduced to each task one at a time. 


System Monitoring 

All of the information required to perform the monitoring task is displayed in the 
upper left window of the screen. This task consists of two parts: lights and dials. You will 
be monitoring the two lights at the top of this window for any changes. You will also be 
monitoring the four dials beneath them for any directional changes in the fluctuation of 
the pointer. Let me demonstrate how this task will appear in the "normal condition." 

Let me first explain the changes that can occur with the lights. As you can see, 
during normal conditions, the left light is on in green. But occasionally, this green light 
will go out. When this happens you must press the "F5" key as indicated next to that light. 
With the mouse version, you must move the mouse cursor within the rectangular green 
light area and press a mouse button. You will receive feedback in that the light will 
immediately turn back on. Any questions? 

The second light is normally off, but occasionally, a red light will turn on in this 
position. To respond to this, you must press the "F6" key, also indicated next to that light 
or move the mouse cursor to the red light area and press a mouse button. Again, as soon 
as you respond correctly, the red light will disappear. To summarize, you will be monitor- 
ing the lignts for the absence of the green light, and for the presence of the red light on the 
right. When these events occur, you must respond to them. Now, I’ll let you practice for a 
few seconds. (One occurrence of each light condition is presented to the subject). Any 
questions? 

The second part of this task consists of monitoring the four dials below the lights. 
Normally, the yellow pointers fluctuate from one unit below to one unit above the center 
line. Is that obvious to you? Your task is to monitor these four dials and detect any change 
from the normal fluctuation of the pointer. In other words, if the pointer of one of these 
dials fluctuates either above or below the normal range, you must respond. The correct 
response is the key that is indicated below the dial which is out of range. If subject is using 
the mouse, simply move the mouse cursor within the out-of-range dial area and press 
either mouse button. (One example each of below and above range fluctuations is pre- 
sented). 

You’ll notice that feedback to a correct response is given by the presence of a 
yellow bar at the bottom of the dial that was out of range and a return to center of that 
dial pointer. Again, the abnormal fluctuation can occur in either direction - above or 
below - but there is only one response per dial. Any questions? Now, I’ll let you practice 
with the dials for one minute. (Subject is presented with two signals to respond to). 
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During the experimental task, you will be monitoring both lights and dials and 
looking for changes in any of them. Respond as quickly and as accurately as possible. 


Tracking 

Ail of the information that you need to perform the tracking task is displayed in the 
upper middle section of the screen in the section titled 'Tracking." Are you right-handed? 
(Mouse and pad are placed on the side of handedness). 

Have you ever used a mouse (or joystick) before? 

IF YES... 

What have you used the mouse/joystick for? (This is noted in log). 

Go to (*** below). 

IF NO... 

The mouse is one way of controlling your position on the screen. Typically, you 
would use the arrow keys to move up and down and right and left. The mouse is another 
way to move around. The mouse pad correlates roughly to the area of the screen so that if 
you move the mouse up on the pad, your position on the screen is moved up accordingly. 
The same is true for moving right, left, diagonally, etc. Basically, if you wish to move to a 
different area of the screen, you must move your mouse in that identical direction on the 
mouse pad. 

One important point to remember about the mouse is that you may have to move 
the mouse farther with your hand than the distance on the screen indicates (experimenter 
demonstrates this). Since there is not much room on the pad, you may have to pick up the 
mouse and set it back down to continue your movement. As long as the mouse is not 
touching the pad or any other surface, you will not affect your position on the screen. If 

the joystick is to be used with the tracking task, similar instructions are given. 

*** 

The overall purpose of this task is to keep the airplane symbol, represented by the 
green circle, within the dotted rectangular area in the center of this task. 

If you do not control the plane with the mouse, the plane will drift away from the 
center. You must control the plane with movements of the mouse/joystick. Basically, you 
must compensate for this random drifting by pulling the plane back to center with corre- 
sponding movements with the mouse/joystick. For example, if the plane is drifting to the 
right, moving the mouse/joystick to the left will return the ship to center. Most of the 
time, however, you will be working in two dimensions: horizontal and vertical; so you will 
be making many diagonal movements. Let me demonstrate (experimenter controls 
mouse/joystick). Watch both the screen and the mouse. You’ll notice that, if the plane is 
away from the center, you must make rather large movements to return it. If the plane is 
already in the center, smaller movements will be required. Now, you practice for a few 
minutes before we start the experiment. 

Remember, the overall purpose of this task is to keep the plane in the center rec- 
tangular area. Try to maintain this at all times. If the plane leaves the rectangular area, 
try to return the plane to center as quickly as possible. 


15 


Instructions to Subjects 


Communications 

AH of the information that vou need for the communications task is displayed in the 
lower left corner of the screen under the title "Communications." The overall purpose of 
this task is to discriminate between audio signals which will be presented through nead- 
phones and to respond as indicated. 

The messages that you will hear begin with a six-digit call sign followed by a 
command. These call signs consist of three letters followed by three numbers. You must 
respond only when you hear your personal call sign which is NGT504. This number will 
remain on the screen at all times as a reminder to you. Any other call sign is not meaning- 
ful to you. Your call sign will sound like this. Please listen to the first part of the following 
message: (Ctl FI). The call sign will be presented twice so that you can identify it precise- 
ly. Other call signs will be presented in the same way. The following is an example of a 
different call sign: (Ctl F2). Do you feel comfortable discriminating between your call sign 
and other call signs? (If no, repeat other examples). 

The second part of the message involves a command and you must respond to those 
that follow your call sign only. Do not respond if the message begins with a different call 
sign. The second part of the message is a command requiring you to change one of the 
frequency numbers listed on the screen. Let me explain this part of the task. There are 
four channels listed in the left column on the screen: NAVI, NAV2, COM1, COM2. 

These will be referred to in the audio message as: First Navigation, Second Navigation, 
First Radio and Second Radio. Notice that COM 1 and COM2 are referred to as radio 
channels. In the right column are the frequency numbers that correspond to each channel. 

The following is another example of one of these messages: In this message, you 
were directed to change second navigation to 111.6. That channel is the second channel 
listed on the screen, or NAV2. You must change the frequency of this channel from what 
it is now to 111.6. In order to do this, you must use the arrow keys on the right part of the 
keyboard. The up and down arrow keys change radios for you. Try using these keys. 

If using the mouse, move the mouse cursor to the desired radio and press the 
mouse button to select that radio. After the correct channel has been selected, move the 
pointer to the left/right arrows located next to the frequency and press the mouse button 
once for each increment or decrement that you wish to select until the correct frequency is 
attained. 

You can see that you are moving up and down through the different radios. Now 
go to second navigation. 

In order to change the frequency numbers, you must use the left and right arrow 
keys (click on these areas with the mouse). The right arrow key increases the number by 
intervals of 0.2 and the left arrow key decreases the number by intervals of 0.2. Now 
change this frequency to 1 1 1.6. Let’s try a few more examples. Notice that the range of 
the navigation frequencies is 108.1 to 117.9. The radio channels range from 118.1 to 135.9. 
Do you feel ready to begin? Let’s first adjust the headphones for you. Put the headphones 
on and let me know if the volume level is adequate. 

When you have completed the requested frequency change, press the "Enter" key to 
acknowledge that the change is complete (or click the mouse on the "Enter" area). 
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Remember, the overall goal of this task is to distinguish correctly messages begin- 
ning with your call sign and respond to those commands. Please respond as quickly and 
accurately as you can. 


Resource Management 

All of the information that you will need to do the resource management task is 
contained within the two lower right windows with the headings "Resource Management" 
and "Pump Status." 

This task is considered a fuel management task. The rectangles are tanks which 
hold fuel, the green levels within the tanks that increase and decrease are fuel, and along 
the lines which connect the tanks are pumps which transfer fuel from one tank to another 
in the direction that is indicated by the arrow. The numbers underneath four of the tanks 
represent the amount of fuel in units for each of these tanks. This number will be increas- 
ing and decreasing as these levels change. The capacity for the main tanks, A and B, is 
4000 units each. The supply tanks, C and D, contain a maximum of 2000 units each. The 
supply tanks on the right of each three-tank system have an unlimited capacity - they never 
run out. 

Your overall goal with this task is to maintain the levels of fuel in tanks A and B at 
2500 units. This critical level is indicated by the tick mark in the shaded area on the side 
of each of these tanks. This level is also indicated by the numbers underneath each tank. 

It is acceptable to keep the level of fuel within the shaded area between 2000 and 3000 
units. However, optimum performance is obtained when Tanks A and B are at 2500 units. 

In order to meet this criterion, you must transfer fuel to tanks A and B in order to 
meet this criteria because tanks A and B lose fuel at the rate of 800 units per minute 
(default; select at setup). So you can see that with their present levels of approximately 
2400 units each, these tanks would become empty in slightly more than 3 minutes without 
the transfer of additional fuel. Tanks C and D only lose fuel if they are transferring fuel to 
another tank. 


Let me now demonstrate the process of transferring fuel. Notice that every pump 


has a number, a sq 
through which fue 
in one direction. 


uare box and an arrow next to it. The arrow indicates the direction 
can be transferred with that pump. Each pump can only transfer fuel 

'he pumps are activated by pressing the key corresponding to the pump 

that you wish to activate. Use the number keys across the top of the keyboard rather than 
those on the right hand side of the keyboard. If the subject is using the mouse, they are 
instructed to move the mouse cursor to the square box on the pump that they wish to 
activate and press the mouse button. A second press of the mouse button in the same area 
will turn the pump off. I’ll demonstrate by turning all of the pumps on. 


When I turned the pumps on, two things occurred. First, the square on each pump 
turned green. That means that the pump is actively transferring fuel. When the pump is 
off, the square is black. The secona change on the screen is the numbers that appeared in 
the "Pump Status" window. Let’s focus on that now. 


Under "Pump Status," two columns of numbers are present. The first column, 
numbers one through eight, indicate the pump numbers and these correspond directly to 
the pumps in the diagram. The second column of numbers indicates the flow rates in units 
per minute of each pump when that pump is on. For example, Pump 1 transfers 800 units 
of fuel per minute from Tank C to Tank A. The flow rate for any given pump is only 
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presented if that pump is on and actively transferring fuel. Are the flow rates clear to you? 

So far, you’ve seen two conditions for the pumps: on and off. Pressing the pump 
number key once turns the pump on; pressing the key again turns that pump off, and so on. 
A third condition is the fault condition, over which you have no control. At various times 
throughout your task, you will see the status indicator on a pump turn red. This means the 
pump is inactive as long as that red light is present. You will not be able to use this pump 
until the red light goes out. However, you must be aware that when the fault is corrected 
and the red light goes out, that pump will automatically be returned to the "off' status 
(without any light). Even if you had turned that pump on before the fault occurred, the 
pump will not be returned to an "on" condition. You will have to turn it on again if that is 
what you wish. Any questions? 

Along the same line, if a tank fills up to its capacity, all incoming pump lines will be 
turned off automatically. This is because a full tank cannot receive any more fuel. You 
will have to turn those pumps back on at a later time, if that is what you wish. Conversely, 
if a tank becomes empty, all outgoing pumps will automatically be turned off. This is 
because an empty tank can no longer transfer fuel. Again, you will have to turn these 
pumps on again if that is what you wish to do. Any questions? 

Your overall goal is to keep the fuel level in Tanks A and B at 2500 units each. 

You may use any strategy that you wish to do so. If the fuel level in these tanks should go 
outside the shaded region, however, please return the fuel level back to the target level as 
soon as possible. 


Scheduling Window 

The scheduling window is found in the upper right corner of the display. The 
purpose of the scheduling window is to present the start and duration of the manual track- 
ing task and the communication task. The scheduling window requires no response on 
your part but is designed to provide you with information about the scheduling of tasks in 
the near future. The two indicators are identified by "T" for the tracking task, and "C" for 
the communication task. The scheduling window allows you to Took ahead" from the 
present (0 minutes) to 8 minutes into the future. The bold lines, or bars, indicate times 
during which these two tasks, tracking and communication, will be operating. TTie thin 
lines indicate times at which either tracking or communication are not required. 


Workload Rating Scale 

One of our interests today is in assessing your perceptions of your own performance 
with the task battery in terms of difficulty level and workload. Now, we would like to 
describe the technique that will be used to examine your experiences. Our objective is to 
capture your perceived "workload" level. The concept of workload is hard to define specif- 
ically and is composed of many different aspects. Workload may refer, in part, to the 
physical demands of the task, the time pressure involved, your expended effort, or your 
resulting stress or frustration levels. 

We hope to understand workload on this battery by asking individuals who perform 
the tasks to describe the various feelings and perceptions that they experienced while 
operating the battery. Since many factors may be involved, we would like you to tell us 
about several individual factors rather than one overall workload score. The set of six 
rating scales that you now see before you was developed at the NASA Ames Research 
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Center and has been used in a wide variety of tasks. 

As you can see, there are six scales on which you will be asked to provide a rating 
score: mental demand, physical demand, temporal demand, performance, effort, and 
frustration. Let me take a minute to explain each of these scales. The first, mental 
demand, refers to the level of mental activity like thinking, deciding and looking that was 
required by the task. You will rate this scale from low (on the left side) to high (on the 
right side). The second scale, physical demand, involves the amount of physical activity 
required of you, such as controlling or activating. Temporal demand refers to the time 
pressure that you experienced during the task. In other words, was the pace slow and 
leisurely or rapid and frantic? 

The fourth scale involves your perceptions about your own performance level. 

Your rating here should reflect your satisfaction with your performance in accomplishing 
the goals of the task. Notice that this scale ranges from good (on the left side) to poor (on 
the right side). All of the other scales range from low to high. The fifth scale, effort, 
inquires as to how hard you had to work (both mentally and physically) in order to achieve 
your level of performance. Finally, the sixth scale, frustration level, is an index of how 
secure and relaxed (low frustration) versus stressed and discouraged (high frustration) you 
felt during the task. Do you have any questions? 

Now, I will explain the method you will use to rate your experiences with these six 
scales. When this screen first appears, the pointer on the first scale will be illuminated in 
yellow. You must select the score that best suits your perceptions about that scale from 
low to high with either the mouse (left to right movement) or the right and left arrow keys. 
After you have decided upon your score, use either the left mouse button key, the space 
bar, or the down arrow key to move to the next scale. You will notice that the pointer 
from the first scale will turn to a gray color, while the pointer on the active second scale is 
now yellow. The yellow pointer always indicates the scale which is active or is available 
for change. 

After you have entered the sixth score, the instructions at the bottom portion of the 
screen will change. You now have the option of returning to the task battery by pressing 
the right mouse button, or by using the ESCape or Return keys. However, if you wish to 
change one of your scores, you may do so by pressing the left mouse button, the down 
arrow key or the space bar. Continue to press that key until the pointer for the scale that 
you wish to change is yellow. At that point, you may use the mouse or the left and right 
arrow keys to adjust your rating. When you are finished, press the right mouse button or 
use the ESCape or Return keys to return to the battery. Please practice this procedure, 
using your experience on the practice section of this task as the basis for your ratings. Feel 
free to ask any questions that you would like. 

Now that you are familiar with both the task battery and the workload rating sys- 
tem, let me explain the presentation of the rating system. Several times during your per- 
formance with the battery, the computer screen will change from the battery to the rating 
scale. The first time that this happens, I would like you to rate your experiences with the 
task battery to that point. The second time the rating scale appears, you will rate your 
experiences with the task since the last rating process and so on. Any questions? 

While you are rating your perceptions, the task battery will be paused and time 
frozen until you finish the rating process. In other words, you will not be missing anything 
while you complete the rating scale. Once you finish and return to the battery, you will 
resume where you left off in terms of elapsed time. Therefore, there is no need to rush 
through the rating scale; however, after 45 seconds, the rating scale screen will automati- 
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cally end and the task battery screen will reappear. Please give your responses thoughtful 
consideration, but do not spend too much time deliberating over them. Your first re- 
sponses will probably accurately reflect your feelings and experiences. 
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Each time the Multi-Attribute Task Battery is run, five data files are created. 
Separate data files exist for each of the four task components: monitoring, tracking, 
communications and resource management. A fifth data file contains responses to the 
NASA Task Load Index Rating Scales. If the AFTERMAT and APPLYWT programs are 
run, these data files are generated as well. Data filenames are automatically assigned and 
all begin with the letters "MD" followed by the month (2 numerical digits), date (two di- 
gits) and hour (two digits) on which the run was begun. The one exception to this is the 
AFTERMAT weighting data file, which begins with WT. The filename extension consists 
of the run start time in minutes (two digits) and one of the following letters: M, T, C, R, or 
X. These letters identify the type of data contained in the file: Monitoring (M), Tracking 
(T), Communications (C), Resource management (R) or NASA TLX ratings (X). An 
example of the data file names which are generated from one run of the battery are listed 
below. 

Data files created by the task battery: 

MD101413.25M (Monitoring) 

MD101413.25T (Tracking) 

MD101413.25C (Communications) 

MD101413.25R (Resource Management) 

MD101413.25X (Subjective Ratings) 

Data files created by support programs: 

WT101414.10X (AFTERMAT program subscale weightings) 

MD101413.25W (APPLYWT program adds the mean and weighted average 
to the Subjective Ratings file, creating a new file 
ending in "W") 

The data filenames illustrated above would have been created by a run which began 
October 14, at 1:25 pm. 

The following pages contain examples of each of the types of data files with annota- 
tion. The first line of each data file is a header containing the date (month-day-year), 
beginning time (hounminute: seconds) and the full name of the data file (i.e., 
MD101413.25M). 
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MONITORING DATA FILE 

10-14-1991 13:25:29 MD101413.25M - header identification line 

Elapsed time at beginning of monitoring event (seconds) 

I 

| Event Code (1 to 4 - scales, 5 - Green light, 6 - Red light) 

| | Negative event codes indicate a change in task Automation / 

| j Manual mix (range -1 to -6 reflecting levels 1 to 6) 


Response Time (seconds) 


57.01 

6 

1.43 



83.15 

2 

-20.10 

* 

A negative sign here indicates that the 

81.01 

3 

3.68 


described event timed out before the 

102.05 

5 

1.97 


subject responded (i.e., a miss). 

152.03 

5 

1.43 


The 4 scales time out after 20 seconds; 

163.01 

3 

5.50 


the lights time out after 15 seconds. 

81.01 

3 

3.68 


(These values can be changed in the 

102.05 

5 

1.97 


Setup program) 

152.03 

5 

1.43 



163.01 

3 

5.50 



178.01 

5 

9.39 



194.05 

1 

0.00 

* 

A response time of 0.00 indicates a 

218.21 

3 

0.00 


false alarm on the subject’s part. 

224.15 

2 

-20.11 


The function key that was pressed 

248.04 

6 

1.43 


is recorded in the second column. 

288.90 

3 

0.00 



336.08 

2 

0.00 



339.05 

-3 

0.00 

* 

Negative event codes show changes in 

354.81 

3 

0.00 


task automation / manual mix. 

367.06 

1 

-20.05 



360.04 

-4 

0.00 



362.01 

6 

5.16 



396.06 

2 

-20.05 



423.03 

3 

0.00 



425.01 

2 

3.90 
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TRACKING DATA FILE 

10-14-1991 13:25:29 MD101413.25T - header identification line 

Seconds into task (Start Time of Data Recording Interval) 

i 

| Sum of Squares (SS) 


Screen updates in RMS Interval (N) 

| Interval will vary depending on Setup selected 
| data recording interval (10 * seconds) 


1 

1 

1 

1 

1 

1 

RMS 

1 

- SQRT(SS/N) 

1 

240.07 

1 

51279.30 

1 

150 

1 

18.49 

RMS is deviation from center 

255.12 

234749.14 

150 

39.56 

of tracking target in pixel units. 

270.23 

136623.52 

150 

30.18 

(Vertical pixels converted to 

285.33 

257187.50 

150 

41.41 

Horizontal pixel units before 

300.44 

22690.17 

150 

12.30 

computing resultant total 

315.54 

56336.78 

150 

19.38 

deviation) 

330.59 

121081.50 

150 

28.41 


345.70 

111887.74 

150 

27.31 


360.80 

119243.27 

150 

28.19 


375.91 

196448.38 

150 

36.19 


390.95 

143360.45 

150 

30.91 


391.70 

0.04 

0 

0.00 

Switch to highest difficulty level 

406.00 

155585.45 

150 

32.21 

tracking 

421.05 

445533.78 

151 

54.32 


423.07 

0.03 

0 

0.00 

Switch to medium difficulty level 

436.21 

27608.42 

150 

13.57 

tracking 

451.32 

97377.30 

150 

25.48 


460.54 

0.01 

0 

0.00 

Switch to lowest difficulty level 

466 . 42 

271713.59 

149 

42.70 

tracking (These tracking level changes 

783.07 

306373.41 

150 

45.19 

can be made whether tracking task is 
on "Manual" or off "Auto") 

798.17 

92931.23 

150 

24.89 


813.28 

117154.58 

150 

27.95 


828.33 

139201.88 

104 

36.59 

*Switch to auto at about 10 sec. 

840.03 

0.00 

0 

0.00 

*Switch from manual to auto. 

4800.10 

62347.64 

150 

20.39 

^Manual mode resumes . 

4815.15 

241718.64 

150 

40.14 


4830.20 

30305.10 

150 

14.21 



5373.41 

28163.55 

150 

13.70 


5388.52 

38071.82 

102 

19.32 


5400.05 

0.00 

0 

0.00 

♦Switch to auto 

5535.00 

0.00 

0 

0.00 

♦End of run 
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COMMUNICATIONS DATA FILE 

10-14-1991 13:25:29 MD101413.25C - header identification line 

Time from beginning of task (in seconds) 

i 

| Either Event Code (57, 58), Channel (1 to 4), or Enter (13) 

| | Event codes 59 and 60 are recodes (+2) of a signal that was 

| | in the script but due to task level changes was recoded to 

| | prevent it from being presented to the subject 


Change of frequency (0.00 - no change) 


139.01 

57 

0.00 

* Event (own message) occurs at 139.01 sec. 

147.74 

1 

108.70 

* Subject changes frequency of Channel 1 

147.96 

1 

108.90 

to 108.70, etc. and stops responding at 

148.24 

1 

109.10 

148.79 seconds into the task when Channel 

148.35 

1 

109.30 

1 is at Frequency 109.70. 

148.57 

1 

109.50 


148.79 

1 

109.70 


150.35 

13 

0.00 

* "Enter" key pressed by the subject 

211.02 

58 

0.00 

* Other message is presented - No response. 

246.01 

57 

0.00 

* Event (own message) occurs at 246.01 sec. 

254.57 

2 

0.00 

* Subject first changes channel to 2 and 

254.79 

3 

0.00 

then to 3 (Frequency changes - 0.00). 

258.25 

3 

119.90 

* Once channel is set, subject begins to 

258.58 

3 

120.10 

change frequency. 

258.80 

3 

120.30 


258.97 

3 

120.50 


259.13 

3 

120.70 


259.35 

3 

120.90 


259.46 

3 

121.10 


263.20 

13 

0.00 


359.04 

58 

0.00 

*0ther message is presented - No response. 

438.03 

58 

0.00 


513.00 

57 

0.00 

★Event (own message) occurs. 

523.22 

2 

0.00 

★Subject begins to change channels and 

523.33 

1 

0.00 

ends at 525.69 seconds. 

523.49 

4 

0.00 


524.37 

3 

0.00 


524.59 

2 

0.00 


524.81 

1 

0.00 


525.69 

2 

0.00 


526.46 

2 

110.50 

★Subject begins to change frequency of 

526.68 

2 

110.70 

Channel 2. 

526.79 

2 

110.90 


526.90 

2 

111.10 


527.01 

2 

111.30 


527.17 

2 

111.50 


527.28 

2 

111.70 


528.04 

13 

0.00 
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RESOURCE MANAGEMENT DATA FILE 

10-14-1991 13:25:29 MD101413.25R - header identification line 

Time into task from beginning of run (in seconds) 

I 

| Pump Activity or Event Codes 

I I 

| | Amount of fuel present in Tank A 

| j | Amount of fuel present in Tank B 

|| | | Amount of fuel present in Tank C 

| j j | | Amount of fuel present in Tank D 


24.60 

1 

2158 

2170 

1005 

1010 

*Pump 1 turned on by subject 

30.04 

0 

2158 

2089 

924 

1010 

*Tank status is automatically 

30.26 

3 

2158 

2089 

924 

1010 

updated every 30 seconds, noted 

43.94 

2 

2158 

2089 

762 

848 

by a "0" in Column 2. 

44.32 

4 

2178 

2089 

735 

821 

60.03 

0 

2338 

2249 

519 

605 


90.02 

0 

2638 

2549 

114 

200 


100.01 

10 

2738 

2649 

0 

65 

^Multiples of 10 in Column 2 

106.00 

30 

2717 

2709 

0 

0 

show that a pump was turned off 

120.01 

0 

2668 

2660 

0 

0 

by system (10-Pump 1, 20-Pump 

150.00 

0 

2563 

2555 

0 

0 

2, etc.) and occurs when a tank 

180.04 

0 

2458 

2450 

0 

0 

becomes either empty or full. 

191.03 

85 

2423 

2415 

0 

0 

*Codes 81, 82, etc. in Column 

203.66 

3 

2381 

2373 

0 

0 

2 represent pump failures 

204.04 

30 

2374 

2393 

0 

0 

(See Table 1). 

204.48 

-4 

2374 

2393 

0 

0 

*Neg numbers in Column 2 occur 

207.01 

4 

2367 

2366 

0 

0 

whenever the S turns a pump 

208.44 

3 

2360 

2359 

0 

0 

off (-1 - Pump 1 off, 

210.03 

30 

2353 

2379 

0 

0 

-2 - Pump 2 off, etc.) 

210.03 

0 

2353 

2379 

0 

0 


210.03 

8 

2353 

2379 

0 

0 


227.39 

6 

2409 

2219 

0 

0 


235.19 

-8 

2437 

2139 

0 

80 


240.02 

0 

2416 

2118 

0 

140 


270.01 

0 

2311 

2013 

0 

440 


270.01 

86 

2311 

2013 

0 

440 


276.54 

-4 

2290 

1992 

0 

440 


277.81 

4 

2290 

1992 

0 

440 


278.03 

3 

2283 

1985 

0 

440 


300.00 

0 

2206 

2205 

0 

143 


311.04 

95 

2171 

2305 

0 

8 

*Event Codes 91, 92, etc. in 

312.03 

30 

2164 

2325 

0 

0 

Column 2 represent the repair 

324.71 

5 

2122 

2283 

0 

0 

of pump failures (See Table 1) 

330.04 

0 

2101 

2262 

60 

0 


360.03 

0 

1996 

2157 

360 

0 


362.04 

78 

1990 

2151 

366 

6 

*Code 78 indicates switch to "AUTO" mode 

376.12 

3 

1940 

2101 

520 

24 

pumps switch by themselves in this mode 

378.05 

79 

1933 

2121 

540 

30 

*Code 79 indicates switch to "MANUAL" 

380.02 

1 

1926 

2114 

560 

36 


390.02 

0 

2026 

2079 

525 

45 


390.02 

96 

2026 

2079 

525 

54 
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WORKLOAD RATING SCALE DATA FILES 

Filename: MDmmddhh.nnX Where "X" indicates TLX Rating Data File, 

mm is month, dd is day, hh is hour, and nn is minute 
of beginning of data run. 

10-14-1991 13:25:29 MD101413.25X - header identification line 

Elapsed time (seconds) at beginning of Rating period 

I 

| Duration of Rating screen presentation (seconds) 

I I 

| | Mental Demand rating (0 to 100) 

| j | Physical Demand rating (0 to 100) 

| III Temporal Demand rating (0 to 100) 

J 1111 Performance rating (0 to 100) 

| I I I I I Effort rating (0 to 100) 

| I I I I I I Frustration rating (0 to 100) 


7.79 

29.38 

7.53 

4.45 

40 

14 

74 

81 

24 

26 

76 

74 

31 

25 

74 

72 

3548.12 

9.37 

30 

76 

24 

74 

30 

74 


APPLYWT GENERATED RATING DATA FILES 

Filename: MDmmddhh . nnW Where "W" suffix indicates Weighted Rating 

Data File 

APPLYWT applies the weights established during AFTERMAT to the ratings 
given by the subject that are contained in the rating data file or files. The 
data file created by APPLWT is a new data file with a "W" ending. 

Example showing two new data Mean of Subscales 

columns created after AFTERMAT | 

and APPLYWT: j Weighted Rating Score 

I I 

header identification line | | 

i i i 

10-14-1991 13:25:29 MD101413.25X | | 


7.79 

29.38 

7.53 

4.45 

40 

14 

74 

81 

24 

26 

76 

74 

31 

25 

74 

72 

53.167 

48.667 

55.250 

46.430 

3548.12 

9.37 

30 

76 

24 

74 

30 

74 

51.333 

52.150 
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AFTERMAT DATA FILE 

10-14-1991 14:10:20 WT101414.10X RC - header identification line 
121212121212121 - subscale chosen of the pair 

312342 - Total number of times each scale was chosen 

| | | | | | as largest contributor to workload 

I I I I I I 

| | | | | Frustration 

I I I I Effort 

| | | Performance 

j j Temporal Demand 
| Physical Demand 
Mental Demand 
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SUMMARY 


The Multi-Attribute Task (MAT) Battery provides a benchmark set of tasks for use 
in a wide range of laboratory studies of operator performance and workload. The battery 
incorporates tasks analogous to activities that aircraft crewmembers perform in flight, while 
providing a high degree of experimenter control, performance data on each subtask, and 
freedom to use non-pilot test subjects. Features not found in existing computer-based tasks 
include an auditory communications task (to simulate Air Traffic Control communication), 
a resource management task permitting many avenues or strategies of maintaining target 
performance, a scheduling window which gives the operator information about future task 
demands, and the option of manual or automated control of tasks. Performance data are 
generated for each subtask. In addition, the task battery may be paused and onscreen 
workload rating scales presented to the subject. The MAT Battery requires a desktop 
computer (80286/386/486 processor) with color graphics (at least 640 x 350 pixel). The 
communications task requires a serial link to a second desktop computer with a voice 
synthesizer or digitizer card. 

The preceding pages include sections describing various aspects of the MAT Bat- 
tery. A section entitled 'Task Battery Description" described each task. Details concerning 
setup, operation, and control of the MAT Battery are found in the sections "Running the 
Task Battery" and "Control of Task Events." The section entitled "Instructions to Subjects" 
provides descriptions of how each task may be introduced to test subjects. Examples of 
performance and rating data files generated by the task battery are presented in the section 
entitled "MAT Data Files." Research conducted using the task battery may be found in 
Arnegard (1991) and Arnegard and Comstock (1991). 
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MATSET4 Program Listing 


■Comstock: Multi-Attribute Task Battery Setup Program MATSET4 (Ver 4.0) 

■ Permits setting or modifying parameters used by the MAT. Reads old 

• parameters from file MATFILE4.NAM and/or generates new file. Reads Alpha- 

• numeric script and translates script to all nuaeric MATNUM.SCR for MAT use. 

• Sets up Serial port parameters for MAT connection to Voice task computer. 

1 Developed using Microsoft OuickBasic 4.5. 

I 

1 J. R. Comstock, Jr. NASA Langley Research Center 804*864-6643 

• 03-27-91 Version 3.5 

• 09-30-91 Version 4.0 w/ res mgmt auto/man & task level control 
DEFINT I-N 

DECLARE SUB keepit (l type) 

DECLARE SUB mainmenu () 

DECLARE SUB mainselect (Isel) 

DECLARE SUB mendbox (ixl, iyl, ix2, iy2, itxtcol, ibckgnd) 

DECLARE SUB parambox () 

DECLARE SUB readscript O 
DECLARE SUB ScriptGen () 

DECLARE SUB taskparam <) 

DECLARE SUB trackgain () 

DECLARE FUNCTION ParseS (it, jX) 

DIM SHARED ipmpnew(8), ipmpold<8), ipmpdef(B) 

COMMON SHARED filscrS, newscrS, oldscrS, mats, matvjS, matvirtS 

COMMON SHARED Itrkgain, Iprobscr, Itrkgainold, lerrsect 

COMMON SHARED tmgrnnew, tmgrnold, tmgrndef 

COMMON SHARED tmrednew, tmredold, tmreddef 

COMMON SHARED tmdianew, tmdiaold, tmdiadef 

COMMON SHARED trkincnew, trkincold, trkincdef 

COMMON SHARED idropanew, idropaold, idropadef 

COMMON SHARED idropbneu, idropbold, idropbdef 

ON ERROR GOTO errorhandler 

start: 1 assign default values 

CLS 

mats = M MATFILE4.NAM" 
matvjS = M MATV40J M 
matvirtS « ,I MATV40M M 

tmgrndef = 15! 
tmreddef = 15! 
tmdiadef * 20! 
trkincdef * 5! 

idropadef = 800 
idropbdef * 800 
ipmpdef (1) □ 800 
ipmjxief(2) = 600 
ipmpdef (3) * 800 
ipmpdef(4) » 600 
ipmpdef(5) = 600 
ipmpdef (6) = 600 
ipmpdef (7) * 400 
ipmpdef(8) ■ 400 

1 read existing mat files file 

lerrsect = 1 'index this section for errorhandler 
OPEN "I", #1, mats 
LINE INPUT #1, oldscrS 
FOR i * 1 TO 5 
LINE INPUT #1, dulS 
NEXT 1 

INPUT #1, Itrkgainold, tmgrnold, tmredold, tmdiaold, trkincold 
INPUT #1, idropaold, idropbold 
FOR i = 1 TO 8 

INPUT #1, ipmpold(i) 

NEXT i 

LINE INPUT #1, matvjS 
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MATSET4 


Program Listing 


LINE INPUT #1, matvmS 
CLOSE #1 

begin: 

tmgrnnew * tmgrnold 
tmrednew » tmredold 
tmdlanew = tmdiaold 
trkincnew = trkincold 

Idropanew * idropaold 
Idropbnew * idropbold 

FOR i * 1 TO 8 

iprnpneu(i) * ipmpold(i) 

NEXT i 

filscrS = UCASE$(oldscr$): Itrkgain = Itrkgainold 
IseL ■ 1 
ma inmenu 

menul : 

ma inselect Isel 

SELECT CASE Isel 

CASE 1 'Initialize Serial Port 
lerrsect = 2 

OPEN "C0Ml:19200,N,8,1" FOR RANDOM AS #5 LEN = 256: CLOSE #5 
COLOR 15, 3: LOCATE 5, 4: PRINT CHR$(251); 

Isel = 2 

CASE 2 'Select Script File 
lerrsect = 3 
readscript 

COLOR 15, 3: LOCATE 6, 4: PRINT CHR$(251); 

Isel * 4 

CASE 4 'Begin Task (Normal) 
l type = 1 

COLOR 15, 3: LOCATE 8, 4: PRINT CHRS(251); 
keepit l type 

IF l type * 27 THEN GOTO begin 

RUN matvji 

END 

CASE 5 'Begin Task (Alternate) 
l type = 1 

COLOR 15, 3: LOCATE 9, 4: PRINT CHR$(251); 
keepit l type 

IF l type * 27 THEN GOTO begin 

RUN matvntf 

END 

CASE 7 'Test Run Normal 
l type = 2 

COLOR 15, 3: LOCATE 11, 4: PRINT CHR$(251); 
keepit l type 

IF l type = 27 THEN GOTO begin 

RUN matvjS 

END 

CASE 8 'Test Run Alternate 
l type « 2 

COLOR 15, 3: LOCATE 12, 4: PRINT CHR$(251); 
keepit l type 

IF l type » 27 THEN GOTO begin 

RUN matvmt 

END 

CASE 11 'Change Tracking Gain 
trackgain 
SCREEN 0, , 0 
COLOR 0, 3 
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LOCATE 15, 28: PRINT USING "<##>"; Itrkgain; 

COLOR 15, 3: LOCATE 15, 4: PRINT CHR*<251>; 

CASE 12 'Change Task Parameters 
taskparam 
SCREEN 0, , 0 

COLOR 15, 3: LOCATE 16, 4: PRINT CHR*(251); 

CASE 14 'Exit, Saving Setup 
l type = 1 

COLOR 15, 3: LOCATE 18, 4: PRINT CHR$(251); 
keepit l type 

IF l type = 27 THEN GOTO begin 
SCREEN 0, , 0: CLS : END 

CASE 15 'Exit, Cancel Setup 
SCREEN 0, , 0: CLS : END 

CASE ELSE 
END SELECT 
GOTO menul 
END 

•ERRORHANDLER 

errorhandler: 
lerrnun = ERR 
COLOR 7, 0: CLS 

PRINT "Multi-Attribute Task Setup Program": PRINT 
PRINT "ERROR NUMBER: lerrnun: PRINT 

SOUND 1000, 2 
COLOR 15, 4 

IF lerrsect = 1 THEN 
CLOSE *1 

PRINT " Creating DEFAULT mat* 

OPEN "0", #1, mat* 

PRINT #1, "SCR24.DTB" 

PRINT #1, "MDTEST00.00M" 

PRINT #1, "MDTESTOO.OOT" 

PRINT #1, "MDTESTOO.OOR" 

PRINT #1, "MDTESTOO.OOC" 

PRINT #1, "MDTEST00.00X" 

PRINT #1, "34 15.0 15.0 20.0 5.0" 

PRINT #1, " 800 800 800 600 800 600 600 600 400 400" 
PRINT #1, matvj* 

PRINT #1, matvM* 

CLOSE #1 
END IF 

IF lerrsect = 2 THEN 
CLOSE #5 

PRINT •• PROBLEM INITIALIZING SERIAL PORT " 

END IF 

IF lerrsect = 3 THEN 
CLOSE #3 

PRINT " PROBLEM WITH SCRIPT FILE or Directory <*.DTB) » 

END IF 

IF lerrsect * 4 THEN 

PRINT " PROBLEM RUNNING NAT TASK Executable file " 

END IF 

IF lerrsect = 5 THEN 
PRINT " PROBLEM Writing Setup File " 

END IF 

COLOR 7, 0 

PRINT : PRINT " Enter RETURN to Restart SETUP, ESC to Quit" 

DO 
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• K E E P ! T Sub 

1 Comstock 

SUB keepit (Itype) STATIC 

lerrsect = 5 
IF Itype = 1 THEN 
dS = OATES: TS * TIMES 

fildatS = "MO" ♦ LEFTSfdS, 2) ♦ MIDS(dS, A, 2) ♦ LEFTSfTS, 2) ♦ ♦ MIDS(T$, 4, 2) 

f ildatlS * fildatS ♦ "M" 

fildat2S = fildatS ♦ "T" 

f ildat3S * fildatS ♦ "R» 

fildat4S * fildatS * "C* 

fildatSS = fildatS ♦ “X" 

ELSE 

f ildatlS = "MDTESTOO.OOH" 
fildat2S = "MDTESTOO.OOT" 
fildat3S = "MDTESTOO.OOH" 
fildatAS * "MDTESTOO.OOC" 
fildatSS = "MDTESTOO.OOX" 

END IF 

• display summary box 
menubox AO, 5, 66, 18, 0, 7 

COLOR 0, 7 

LOCATE 6, A3: PRINT "SUMMARY INFORMATION:"; 

LOCATE 8, A3: PRINT "Script: "; filscrS; 

LOCATE 10, A3: PRINT "DATA filenames:"; 

LOCATE 12, A5: PRINT f ildatlS; 

LOCATE 13, A5: PRINT fildat2S; 

LOCATE 1A, AS: PRINT fildat3S; 

LOCATE IS, A5: PRINT fildatAS; 

LOCATE 16, AS: PRINT fildatSS; 

COLOR 0, 7: LOCATE 21, AO: PRINT SPC(5); "Press RETURN to Continue, "; 

LOCATE 22, AO: PRINT SPC(S); "ESC to RESTART Setup"; SPC<7); 

DO 

aS = INKEYS 

IF aS = CHRS(27) THEN Itype = 27: EXIT SUB 
IF aS = CHRS(13> THEN EXIT DO 
LOOP 

' save new MATFILEA.NAM 

OPEN "0", #2, matS 
PRINT #2, filscrS 
PRINT 02 , f ildatlS 
PRINT 02 , fildat2S 
PRINT #2, fitdat3S 
PRINT #2, fildatAS 
PRINT 02 , fildatSS 
PRINT 02 , USING Itrkgain; 

PRINT 02 , USING " 0000 . 0 "; tmgrnnew; tmrednew; tmdianew; trkincnew 
PRINT 02 , USING " 00000 "; idropanew; idropbnew; 

FOR i = 1 TO 8 

PRINT 02 , USING " 00000 "; ipnpneu(i); 

NEXT i 
PRINT 02 , 

PRINT 02 , matvjS 
PRINT 02 , matvmS 
CLOSE 02 

SCREEN 0, , 0 
lerrsect = A 
END SUB 
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• MAINHENU Sub 

1 Comstock 
SUB ma inmenu 

COLOR 15, Is CLS 

LOCATE 2, 20: PRIMT "Multi-Attribute Task Battery Setup Program" 

PRINT STRING$(80, 205); 

PRINT : COLOR 7, 1 

LOCATE 24, 6: PRINT "J. R. Comstock, Jr., NASA Langley Research Center, "; 
PRINT "Hampton. Virginia"; 

LOCATE 1, 65: PRINT "(SETUP Ver 4.0)"; : LOCATE 5, 1 
menubox 2, 4, 35, 21, 0, 3 

COLOR 0, 3 

LOCATE 5, 6: PRINT "Initialize Serial Port"; 

LOCATE 6, 6: PRINT "Select Script File"; 

LOCATE 8, 6: PRINT "Begin Task (Normal Version)"; 

LOCATE 9, 6: PRINT "Begin Task (Alternate Ver.)"; 

LOCATE 11, 6: PRINT "Test Run (Normal Version)"; 

LOCATE 12, 6: PRINT "Test Run (Alternate Ver.)"; 

LOCATE 15, 6: PRINT "Change Tracking Gain"; 

PRINT USING " (##)"; Itrkgain; 

LOCATE 16, 6: PRINT "Change Task Parameters"; 

LOCATE 18, 6: PRINT "Exit, Saving Setup"; 

LOCATE 19, 6: PRINT "Exit, Cancel Setup"; 

LOCATE 7, 2: PRINT CHR$(195); : PRINT STRING$(32, 196); : PRINT CHR$(180); 
LOCATE 14, 2: PRINT CHR$(195); : PRINT STRINGS(32, 196); : PRINT CHR$(180); 

LOCATE 17, 2: PRINT CHRS(195); : PRINT STRING$(32, 196); : PRINT CHR$(180); 

COLOR 7, 1 
PCOPY 1, 0 
SCREEN 0, , 0 
END SUB 
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• M A I NSELECT Sub 

1 Comstock 

SUB mainselect (item) STATIC 
PCOPY 0, 1 
SCREEN 0, , 1 

itemold = item 
ixl = 2: ix2 = 35 
iyl = 4: iy2 = 21 
itxtcol = 0: ibckgnd = 3 

neuitem: 

FOR icol * ixl ♦ 1 TO ix2 - 1 

ipl = SCREEN(iy1 + itemold, icol, 0) 

COLOR itxtcol, ibckgnd 

LOCATE iyl + itemold, icol: PRINT CHRS(ipl); 
ipl * SCREEN(iy1 + item, icol, 0) 

COLOR 15, 0 

LOCATE iyl + item, icol: PRINT CHRS(ipl); 

NEXT icol 
itemold * item 

COLOR 7, 1 
FOR i * 5 TO 20 
LOCATE i, 42: PRINT SPC(35); 

NEXT i 

SELECT CASE item 
CASE 1 

LOCATE 5, 43: PRINT “Sets COH1 serial port parameters"; 

LOCATE 6, 43: PRINT “for link to voice computer."; 

LOCATE 7, 43: PRINT “If second computer is not used,"; 

LOCATE 8, 43: PRINT "then skip this selection."; 

CASE 2 

LOCATE 6, 43: PRINT “Displays the Directory of ASCII"; 

LOCATE 7, 43: PRINT "script files (with .DTB extension)"; 

LOCATE 8, 43: PRINT "and permits selection of desired"; 

LOCATE 9, 43: PRINT "script."; 

CASE 4, 5 

LOCATE 8, 43: PRINT "Begin task with DATA filenames"; 

LOCATE 9, 43: PRINT "based on present date and time."; 

LOCATE 10, 43: PRINT "(Normal Task Start)"; 

CASE 7, 8 

LOCATE 11, 43: PRINT "Begin test or demo run with DATA"; 

LOCATE 12, 43: PRINT "filenames assigned MDTEST00.00*,"; 

LOCATE 13, 43: PRINT "Overwrite existing HDTEST files."; 

CASE 11 

LOCATE 15, 43: PRINT "Permits adjusting Tracking task" 

LOCATE 16, 43: PRINT “control sensitivity. Values"; 

LOCATE 17, 43: PRINT "range from 1 to 48, higher values"; 

LOCATE 18, 43: PRINT "mean higher gain. Typical values"; 

LOCATE 19, 43: PRINT "Joystick: 34, Mouse: 25"; 

CASE 12 

LOCATE 16, 43: PRINT "Permits modifying task timeouts,"; 

LOCATE 17, 43: PRINT "Tracking RMS data interval, and"; 

LOCATE 18, 43: PRINT "Resource Mgmt task flow rates.”; 

CASE 14 

LOCATE 18, 43: PRINT "Exit Setup, Save present values"; 

LOCATE 19, 43: PRINT "for use in next run of Setup."; 

CASE 15 

LOCATE 19, 43: PRINT "Exit Setup, Ignore any values"; 

LOCATE 20, 43: PRINT "changed during this setup."; 

CASE ELSE 
END SELECT 

DO 

a$ = INKEYS 
IF aS <> "" THEN 
keyasc = ASC(aS) 

IF keyasc * 0 THEN keyfunct = ASC(RIGHT$(a$, 1>> ELSE keyfunct = 0 
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IF keyfunct » 72 THEN 
item ■ item - 1 
SELECT CASE Item 
CASE IS < 1 
item * 15 
CASE 3, 6, 13 
item * item - 1 
CASE 10 

item * item - 2 
CASE ELSE 
END SELECT 
GOTO new item 
ENO IF 

IF keyfunct * 80 OR keyasc = 32 THEN 
item * item + 1 
SELECT CASE item 
CASE IS > 15 
item * 1 
CASE 3, 6, 13 
item * item + 1 
CASE 9 

item = item + 2 
CASE ELSE 
END SELECT 
GOTO newitem 
END IF 

IF keyasc * 13 THEN SCREEN 0, , 0: EXIT SUB 
IF keyasc * 27 THEN CLS : SCREEN 0, f 0: CLS : END 
END IF 
LOOP 

END SUB 
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'MENUBOX Sub 

1 Comstock 

SUB menubox lixl, iyl, 1x2, iy2, itxtcol, ibckgnd) STATIC 

PCOPT 0, 1 
SCREEN 0, , 1 
COLOR itxtcol, ibckgnd 
iwidthml = (ix2 - ixl) - 1 

FOR iron « iyl + 1 TO iy2 • 1 'fill box with background 

LOCATE iron, ixl: PRINT CHRS(179); SPC(iwidthml); CHRS(179); 

NEXT irou 

LOCATE iyl, ixl + 1: PRINT STRINGSliwidthml, 196); 

LOCATE iy2, ixl + 1: PRINT STRINGS! iwidthml, 196); 

LOCATE iyl, ixl: PRINT CHRS1218); 

LOCATE iyl, ix2: PRINT CHRS1191); 

LOCATE iy2, ixl: PRINT CHRS(192); 

LOCATE iy2, ix2: PRINT CHRS1217); 

COLOR 8, 0 

FOR irow = iyl + 1 TO iy2 ♦ 1 
i pi = SCREEN! i row, ix2 + 1, 0) 
ip2 * SCREENlirow, ix2 + 2, 0) 

LOCATE irow, ix2 + 1: PRINT CHR$!ip1); CHRS!ip2); 

NEXT irow 

FOR icol = ixl + 2 TO ix2 + 1 
i pi = SCREEN! iy2 ♦ 1, icol, 0) 

LOCATE iy2 + 1, icol: PRINT CHRSlipl); 

NEXT icol 

ENO SUB 
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' PARAMBOX sub 

• Comstock 
SUB parambox STATIC 

COLOR 0, 7 

iyl = 19: iy2 * 24: ixl = 43: ix2 = 78 
iwidthml » (ix2 • ixl) - 1 
FOR irou = iyl ♦ 1 TO iy2 - 1 

LOCATE irow, ixl: PRINT CHRS(179); SPC(iwidthml); CHR$(179); 
NEXT irow 

LOCATE iyl, ixl +1: PRINT STRINGS(iwidthm1, 196); 

LOCATE iy2, ixl +1: PRINT STRINGS(iwidthm1, 196); 

LOCATE iyl, ixl: PRINT CHRS(218); 

LOCATE iyl, ix2: PRINT CHR$(191); 

LOCATE iy2, ixl: PRINT CHR$(192); 

LOCATE iy2, ix2: PRINT CHR$(217); 

END SUB 
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• PARSE Sub 

1 R. L. Harris, Sr. 
FUNCTION ParseS (iS, j) 


cS = 


FOR k * j TO LEN(iS) 

IF ASC(HIDS(«S, k, 1» > 32 THEN EXIT FOR 
NEXT k 

FOR l = k TO LEN(iS) 

IF ASC(MIDS(iS, l, 1)) < 33 THEN EXIT FOR 
cS = cS ♦ MIDStiS, I, 1) 

NEXT l 

j a l 

Parses = cS 
END FUNCTION 
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' READSCR IPT Sub 

1 Comstock 
SUB readscript 
SCREEN 0 f , 1 
COLOR 7, 1: CLS 

Iprobscr = 1 

PRINT " Directory of Script Files: 1 ' 

PRINT : FILES »*.DTB": PRINT 

' obtain script file name 

PRINT " Enter name of Script File <RETURN for: 
LINE INPUT newscrS 

IF LEN(newscrS) > 0 THEN filscrS * UCASE$(newscr$) 
Iprobscr * 2 

OPEN "I", #3, filscrS 'read the script file 
CALL ScriptGen 
CLOSE #3 

SCREEN 0, , 0 
END SUB 


filscrS; " > 
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• S C R I P T G E N Sub 

1 R. L. Harris, Sr. 

SUB Script Gen 

OPEN "MATNUM.SCR" FOR OUTPUT AS #4 

N = 0 
Told * 0 

PRINT ■ Reading Line Number**; 

VLine = CSRLIN 
DO UNTIL EOF(3) 

LINE INPUT #3, InS 
N * N ♦ 1 
LOCATE VLine, 25 
PRINT USING '*####"; N 
if = UCASES(tnS) 

IF if = THEN if = » ■ 
i = ASC(MID$(iS, 1,1)) 

' Check for tab, space, or number 

IF i = 9 OR i = 32 OR (i >47 AND i < 58) THEN *Not a conment line 
j * 1 

h = VAL(ParseS(iS, j)> 
m = VAL(Parse$(i$, j)) 
s = VAL(ParseS( if, j)) 
cS = ParseS(iS, j) 
code » VAL(cS) 

IF code = 0 THEN 

SELECT CASE cS 

CASE ••RATING'*, "RATINGS 11 , "WORKLOAD", "TLX" 
code * 10 

CASE "SCALE" 

code = VAL(ParseS(iS, j)) • 10 'Codes 10, 20, 30, or 40 
IF ParseS( iS, j) = "UP" THEN 
code = code + 1 

ELSE 

code = code + 2 
END IF 

CASE "GREEN** 
code = 51 

CASE "COMM", "COMMUNICATION", "COMMUNICATIONS" 
cS = ParseSCiS, j) 

IF cS = "TASK" THEN cS = ParseS(iS, j) 

SELECT CASE cS 

CASE "BEGIN", "BEGINS", "START", "STARTS" 
code = 55 

CASE "END", "FINISH" 
code = 56 
CASE "OWN" 
code = 57 
CASE "OTHER" 
code a 58 
CASE ELSE 
code = *9 
END SELECT 

CASE "RED" 
code * 61 

CASE "MANUAL" 
code = 71 

CASE "AUTO" 
cS * ParseS(iS, j) 
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IF c$ = "EMD" THEM 
code * 73 

ELSE 

code * 72 
END IF 

CASE "TRACK", "TRACKING" 
c$ * Parse$<iS, j) 

SELECT CASE c$ 

CASE "LO", “LOW" 
code * 74 

CASE "NED", “MEDIUM" 
code * 75 
CASE "HI", "HIGH" 
code = 76 
CASE ELSE 
code * *9 
END SELECT 

CASE "FAIL" 

c$ * Parse$(i$, j) 

IFc$* "PUMP" THEN cS = ParseS(i$, j) 
code » VAL(c$) 

IF code > 0 AND code < 9 THEN 
code = code + 80 

ELSE 

code = -9 
END IF 

CASE "FIX" 

cS * Parse$(i$, j) 

IF c$ = "PUMP" THEN c$ = ParseS(iS, j) 
code * VAL(cS) 

IF code > 0 AND code < 9 THEN 
code = code + 90 

ELSE 

code * -9 
END IF 

CASE "RESOURCE", "RES" 
c$ * Parse$(i$ f j) 

SELECT CASE c$ 

CASE "AUTO" 
code = 78 

CASE "MANUAL", "MAN" 
code * 79 
CASE ELSE 
code » -9 
END SELECT 

CASE "LEVEL", "LEV" 
c$ « Parse$(i$, j) 
code * VAL(ct) 

IF code > 0 AND code < 7 THEN 
code = code ♦ 100 

ELSE 

code * -9 
END IF 

CASE “END" 
code = 99 

CASE ELSE 
code * -9 

END SELECT 
END IF 

IF code > 0 THEN 

T * h • 3600 + m * 60 ♦ s 
IF T >* Told THEN 
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PRINT #4, USING "###*•; h; at; s; 

PRINT #4, USING »####"; code 
Told ■ T 

ELSE 

SOUND 1000, 3 

PRINT "Timing sequence ERROR in line"; N 
PRINT IrtS 
SLEEP 3 
END IF 

ELSEIF code < 0 THEN 
SOUND 1000, 3 

PRINT "Syntax ERROR in line"; N 
PRINT ins 
SLEEP 3 
END IF 
END IF 

LOOP 

CLOSE #4 
END SUB 
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■TASKPARAM Sub 

• Comstock 

SUB taskparam STATIC 


pa rami : 

SCREEN 0, , 1 
COLOR 7, 1: CLS 

LOCATE 2, Is PRINT STRIN6$(80, 205); 

LOCATE 2, 27s PRINT " Task Parameter Modification »; 
LOCATE 4, 4: PRINT "FI - Select All Timing Defaults"; 
LOCATE 6, 4: PRINT "F2 • Select All Flow Defaults"; 


LOCATE 8, 2 

PRINT STRING$(7, 196); " TASK TIMING (default) now "; 
LOCATE 10, 4s PRINT USING "F3 - Timeout Green <###.#> "; 

PRINT USING "####.#"; tmgrnnew; 

LOCATE 12, 4s PRINT USING "F4 • Timeout Red («##.#) "; 

PRINT USING "##*#.#«; tmrednew; 

LOCATE 14, 4s PRINT USING "F5 - Timeout Dials (###.#) "; 

PRINT USING "####.#"; tmdianew; 

LOCATE 16, 4s PRINT USING "F6 - RMS Interval («##.#) 
PRINT USING "####.#"; trkincnew; 


STRING$(2, 

tmgrndef; 

tmreddef; 

tmdiadef; 

trkincdef; 


196); 


LOCATE 18, 2s PRINT STRINGS(7, 196); " EXECUTABLE PROGRAM "; STRINGS(11, 196); 
LOCATE 20, 4s PRINT »F7 - Normal Programs "; matvjS; 

LOCATE 22, 4s PRINT "F8 - Alternate Pgrms »; matvmt; 


FOR j * 4 TO 24 
LOCATE j, 41s PRINT CHR*(179); 
NEXT j 


LOCATE 4, 43 

PRINT STRING$(5, 196); " RESOURCE MGMT RATES /min STRINGS(5, 196); 
LOCATE 5, 59s PRINT "(default) now"; 

LOCATE 6, 45s PRINT USING "A - Tank A Drop (####)"; idropadef; 

PRINT USING "#####"; idropanew; 

LOCATE 8, 45s PRINT USING "B - Tank B Drop (####)»; idropbdef; 

PRINT USING "#####"; idropbnew; 

FOR i = 1 TO 8 

LOCATE 9 ♦ i, 44s PRINT i; «- Pump"; i; "Rate "; 

PRINT USING " (####)"; ipmpdef(i); 

PRINT USING "#####»; ipmpnew(i); 

NEXT i 


parambox 
COLOR 0, 7 

LOCATE 20, 46s PRINT "Select changes by Function key,"; 

LOCATE 21, 46s PRINT "A, B, or Nusber key, or press"; 

LOCATE 23, 46s PRINT "F10 (or Esc) to Exit"; 

DO 

at ■ INKEYS 
IF at <> "" THEN 
keyasc = ASC(at) 

IF keyasc * 0 THEN keyfunct * ASC(RlGHTS(a$, 1)) ELSE keyfunct * 0 

SELECT CASE keyasc 

CASE 27 'esc 
EXIT SUB 

CASE 49 TO 56 'numbers 
parambox 

ipu * keyasc - 48 

LOCATE 20, 46s PRINT "Enter Pump"; ipu; "Flow Rate"; 

LOCATE 21, 46s PRINT "Range of 0 to 2000"; 

LOCATE 22, 48s PRINT "; 

LINE INPUT vt 

IF vt * "" THEN EXIT DO 
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v* * LEFT$(V$, «> 
iv ■ VAL(v$) 

IF iv >■ 0 AND iv <« 2000 THEN 
ipmpneu(ipu) * iv 
ELSE 

SOUND 1000, 2 

LOCATE 23, 46: PRINT "Re-Enter Value"; 

SLEEP 1 
ENO IF 
EXIT DO 

CASE 65, 97 ‘A or a 
parambox 

LOCATE 20, 46: PRINT "Enter Tank A Drop Rate"; 
LOCATE 21, 46: PRINT "Range of 0 to 2000"; 

LOCATE 22, 48: PRINT 

LINE INPUT v$ 

IF v$ » "" THEN EXIT DO 
vS * LEFTS(vS, 4) 
iv « VAL(v$) 

IF iv >« 0 AND iv <= 2000 THEN 
idropanew = iv 
ELSE 

SOUND 1000, 2 

LOCATE 23, 46: PRINT "Re-Enter Value"; 

SLEEP 1 
END IF 
EXIT DO 

CASE 66, 98 *B or b 
parambox 

LOCATE 20, 46: PRINT "Enter Tank B Drop Rate"; 
LOCATE 21, 46: PRINT "Range of 0 to 2000"; 

LOCATE 22, 48: PRINT "--> «; 

LINE INPUT v$ 

IF v$ * THEN EXIT DO 
v$ * LEFT$(V$, 4) 
iv * VAL(vS) 

IF iv >* 0 AND iv <= 2000 THEN 
idropbnew s iv 
ELSE 

SOUND 1000, 2 

LOCATE 23, 46: PRINT "Re-Enter Value"; 

SLEEP 1 
END IF 
EXIT DO 

CASE ELSE 
END SELECT 

SELECT CASE keyfunct 

CASE 59 'fl 
t mgr mew = tmgmdef 
tmrednew * tmreddef 
tend i anew * tmdiadef 
trkincnew * trkincdef 
EXIT DO 

CASE 60 *f2 
idropanew * idropedef 
idropbnew = idropbdef 
FOR i * 1 TO 8 
ipmpnew(i) * ipmpdef(i) 

NEXT i 
EXIT DO 

CASE 61 'f3 
parambox 

LOCATE 20, 46: PRINT "Enter Green Light Timeout"; 
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LOCATE 21. 46: PRINT "Range of 2.0 to 30.0 sec"; 

LOCATE 22, 48: PRINT "--> "; 

LINE INPUT v$ 

IF v* * "" THEN EXIT DO 
v* = LEFT$(v$, 4) 
tv = VAL(v$) 

IF tv >* 21 AND tv <= 30! THEN 
tmgrnnew = tv 
ELSE 

SOUND 1000, 2 

LOCATE 23, 46: PRINT "Re-Enter Value"; 

SLEEP 1 
END IF 
EXIT DO 

CASE 62 1 f4 
parambox 

LOCATE 20, 46: PRINT "Enter Red Light Timeout"; 

LOCATE 21, 46: PRINT "Range of 2.0 to 30.0 sec"; 

L0CATE 22, 48: PRINT "; 

LINE INPUT vt 
IF V* * "" THEN EXIT DO 
v$ * LEFT$(v$, 4) 
tv » VAL(vS) 

IF tv >* 2! AND tv <= 301 THEN 
tmredneu * tv 
ELSE 

SOUND 1000, 2 

LOCATE 23, 46: PRINT "Re-Enter Value"; 

SLEEP 1 
END IF 
EXIT DO 

CASE 63 * f 5 
paranbox 

LOCATE 20, 46: PRINT "Enter Dial Signal Timeout"; 
LOCATE 21, 46: PRINT "Range of 5.0 to 60.0 sec"; 

LOCATE 22, 48: PRINT "--> "; 

LINE INPUT v$ 

IF v$ « »» THEN EXIT DO 
v$ * LEFT$(vS, 4) 
tv ■ VAL(vS) 

IF tv >« 5! AND tv <= 60! THEN 
tmdianew * tv 
ELSE 

SOUND 1000, 2 

LOCATE 23, 46: PRINT "Re-Enter Value"; 

SLEEP 1 
END IF 
EXIT DO 

CASE 64 • f 6 
paranbox 

LOCATE 20, 46: PRINT "Enter RMS Calculation Interval"; 
LOCATE 21, 46: PRINT "Range of 1.0 to 15.0 sec"; 

LOCATE 22, 48: PRINT "--> »; 

LINE INPUT v$ 

IF v* = "" THEN EXIT DO 
v$ * LEFTSlvS, 4) 
tv * VAL(vS) 

IF tv II AND tv <= 15! THEN 
trkincneu « tv 
ELSE 

SOUND 1000, 2 

LOCATE 23, 46: PRINT "Re-Enter Value"; 

SLEEP 1 
END IF 
EXIT DO 
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CASE 65 *f7 
parambox 

LOCATE 20, 46: PRINT "Enter Normal Program Name"; 
LOCATE 21, 46: PRINT "(without C.> and extension)"; 
LOCATE 22, 48: PRINT "--> 

LINE INPUT v* 

IF vt * "" THEN EXIT DO 
vS ■ UCASES(vS) 
matvjS » LEFT$(v$, 8) 

EXIT DO 

CASE 66 *f8 
parambox 

LOCATE 20, 46: PRINT “Enter Alternate Program Name”; 
LOCATE 21, 46: PRINT “(without <■> and extensio n)“; 
LOCATE 22, 48: PRINT “--> “; 

LINE INPUT vi 
IF v$ * ““ THEN EXIT 00 
vi s UCASEi(vi) 
matvrti * LEFTi(vi, 8) 

EXIT DO 

CASE 68 'flO exit 
EXIT SU8 

CASE ELSE 
END SELECT 
END IF 

LOOP 

GOTO paraml 
END SUB 
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' TRACICGA IN Sub 

1 Comstock: Select tracking gain value 

SUB trackgain 

startgain: 

menubox 45, 15, 75, 20, 0, 7 
COLOR 0, 7 

LOCATE 16, 48: PRINT ''Enter Tracking Gain 11 ; 
LOCATE 17, 48: PRINT "Range of 1 to 48"; 
LOCATE 18, 48: PRINT " --> 

LINE INPUT H* 

IF ml = "" THEN EXIT SUB 
m$ * LEFTSOrtS, 2) 
new track * VAL(mS) 

IF newtrack > 0 ANO newt rack < 49 THEN 
Itrkgain « newtrack 
ELSE 

GOTO startgain 
END IF 


END SUB 


MATV40J Program Listing 


' Comstock: Multi -Attribute Task MATV40J.&AS 

1 Version 4.0 09-30-91 

i 

• J. R. Comstock, Jr., Ph.D. (804) 864-6643; FTS 928-6643 
' MS- 152 NASA LaRC, Hampton, VA 23665 

I 

1 Written using Microsoft QuickBASIC 4.5, using Screen mode 9 (EGA) 

' Hardware Requirements: PC or compatible with EGA graphics; 

1 80286/80386/80486 machine recommended. Has been tested on 

• IBM PC AT, IBM PS-2, & Compaq 386/20 
« 

' Contains CALLS to Library routines found in SJ.QLB and/or SJ.LIB 
1 for handling joystick input and serial port I/O. May be altered 

• to use mouse input for task control (see comments in MOUS INPUT sub). 

■ 

DEF1NT I-N 

DECLARE SUB automessage (msgleft, msgrt) 

DECLARE SUB blend () 

DECLARE SUB communicate (dfreq, nrad) 

DECLARE SUB keypressed (keyasc, keyfunct) 

DECLARE SUB monitgrid (igridcol) 

DECLARE SUB monitoring (tmonoff) 

DECLARE SUB mousinput () 

DECLARE SUB progexit (terror) 

DECLARE SUB ratesetup () 

DECLARE SUB ratings () 

DECLARE SUB resource (keyhit, i fault) 

DECLARE SUB resourceauto (Irmode) 

DECLARE SUB resourcegrid (irescolor) 

DECLARE SUB savecomm (nactiv, freq) 

DECLARE SUB savedata (istim, rtl, rt2) 

DECLARE SUB savefuel (npump) 

DECLARE SUB savetrack (trstart, ssqtr, xntr) 

DECLARE SUB schedulcom (i) 

DECLARE SUB schedultrk (i) 

DECLARE SUB scriptcode (levent) 

DECLARE SUB scrngets () 

DECLARE SUB scrnstuff () 

DECLARE SUB tracking (jetcode) 

DECLARE SUB trackgrid (igridcol) 

DECLARE SUB wamlights (Icode) 

DIM SHARED lab1(290), lab2(146), lab3(178), lab4(242), lab5(322), lab6(146) 
DIM SHARED lab7(210), lwedg(80), jet1(500), levtype(900), etime(900) 

DIM SHARED mon1vec(63), mon2vec(42), mori3vec(79), mon4vec(35) 

DIM SHARED mauto(50), mcomtsk(50), cursor(15, 1), mcursor(60) 

DIM SHARED tmlog(900), ltyp(900), rt(900), tmtrv{900), ssqv(900) 

DIM SHARED ndpunp(900), tmfuel(900), xntrv(900), tmcom(900) 

DIM SHARED icomact(900), freqv(900>, lfa(900), lfb(900), lfc{900), lfd(900) 
DIM SHARED lrate1(120), lrate2(100), lxpos(6), lxold(6), lypos(6) 

COMMON SHARED maxyscr, tnou, pi2, iqa, iqb, iqaff, iqbff, joyxinit, joyyinit 
COMMON SHARED maxmauto, maxmcom, indcom, indcomax, itrktog 
COMMON SHARED mctl, mb, mx, my, initx, inity, Ifx, indrt, mantrksel, ibckgnd 
COMMON SHARED indrtmax, ixtr, ixtrmax, indfuel, indfuelmax, itrksens, itrcode 
COMMON SHARED clktics, ticpause, totlpause, trkincsav, trkxinc, trkyinc 
COMMON SHARED fildatlS, fildat2$, fildat3S, fildat4S, fildat5$ 

COMMON SHARED idropa, idropb, ipflowl, ipflow2, ipflow3, ipflow4, ipflow5 

COMMON SHARED ipflow6, ipflou7, ipflowS, msgleft, msgrt, ictlf7 

COMMON SHARED levtask, levtaskold, Iresdisp, Ipumpfail, Icomtask, light task 

COMMON SHARED kl, k2, k3. k4, k5, k6, k7, k8, Imontask, moncode, mucking 

COMMON SHARED Itogred, Itoggrn, Itogml, ltogm2, ltogm3, ltogm4 

COMMON SHARED rtred, rtgrn, rtmonl, rtmon2, rtmon3, rtmon4 

COMMON SHARED lyellol, lyello2, lyello3, lyello4 

COMMON SHARED Imonpl, lmonp2, lmonp3, lmonp4 

COMMON SHARED rtyell, rtyel2, rtyel3, rtyeU 

RANDOMIZE TIMER 
pi2 > 6.28318 

trkxinc = .03: trkyinc = .0225 'medium tracking difficulty default 

ticpause = 01: totlpause = 0! 'keep pause time 

initx * 340: inity = 80 'initial trk position 


B - 1 


MATV40J Program Listing 


imx = 210: imy * 188 'initial mouse cursor position 

indrt = 0: ixtr * 0: indcom * 0: indfuel * 0 'indices for data arrays 
tmoutyello = 1.5 'timeout for monitoring response confirmation 
ibckgnd = 0 'screen bckgnd color default 

'max length of data arrays before disk write 

indrtmax = 900 'monitoring data array 

ixtrmax = 900 'tracking 

indcomax = 900 'communications 

indfuelmax = 900 'resource mgmt 

maxscript ■ 900 'max length of script 
maxyscr = 349 'max Y screen in mode 9 

CLS : SCREEN 9: UIDTH 80, 43 
ratesetup 'setup rating form 

scrngets 'setup screen gets 

scrnstuff 'draw static screen stuff 

monitgrid 11 'draw mon grid 

resourcegrid 11 'draw res grid 

communicate 01, 99 * ini t communications task 
warnlights 2 'turn on green light 

monitoring 99 'setup mon wedges 

COLOR 14, ibckgnd: LOCATE 21, 14: PRINT DATES; 

' obtain script and output filenames from setup generated MATFILE4.NAM 

filsupS a "MATFILE4.NAM" 

OPEN "I", #1, filsupS 
LINE INPUT #1, filscrS 
LINE INPUT *1, fildatlS 
LINE INPUT #1, fildat2S 
LINE INPUT #1, fildat3S 
LINE INPUT #1, fildat4S 
LINE INPUT #1, fildat5S 

INPUT #1, itrksens, tmoutgrn, tmoutred, tmoutmon, trkincsav 
INPUT #1, i drops, idropb, ipflowl, ipflow2, ipflow3, ipflow4 
INPUT #1, ipf lowS, ipf low6, ipflow7, ipflow8 
CLOSE #1 

itrksens = 51 - itrksens 

' display version, script, and data filenames 

COLOR 15: LOCATE 4, 37: PRINT "HAT Version 4.0J"; 

LOCATE 6, 28: PRINT "ASCII file filsupS; " indicates:"; 

LOCATE 8, 28: PRINT "SCRIPT file is:" 

LOCATE 9, 30: PRINT filscrS 
LOCATE 11, 28: PRINT "Data files:" 

LOCATE 12, 30: PRINT fildatlS 

LOCATE 13, 30: PRINT fildat2S 

LOCATE 14, 30: PRINT fildat3S 

LOCATE 15, 30: PRINT fildat4S 

LOCATE 16, 30: PRINT fildat5S 

LOCATE 19, 28: PRINT "Enter RETURN to begin, ESC to exit:"; 

DO 'wait for CR or ESC 
aS * UCASESl INKEYS) 

IF aS = "C" THEN 'permit background color adjust via X t C keys 

ibckgnd = ibckgnd + 1 
IF ibckgnd > 63 THEN ibckgnd = 0 
COLOR 15, ibckgnd 

LOCATE 21, 58: PRINT USING "##"; ibckgnd; 

END IF 

IF aS * "X" THEN 
ibckgnd * ibckgnd - 1 
IF ibckgnd < 0 THEN ibckgnd = 63 
COLOR 15, ibckgnd 

LOCATE 21, 58: PRINT USING ibckgnd; 

END IF 
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IF a* * CHR$<27) THEN CLS : SCREEN 0: END 
LOOP UNTIL a$ ■ CHR$(13) 

CALL qjoy(joyxlnlt, joyyinlt) 'obtain initial joystick values 

LINE (201, 12)*(519, 151), 0, BF 'erase text area in tracking window 

' set up mouse 

mwrking = 1: mx * 0 

‘met l = 0: CALL mouse (met l, mb, nx, my) 

‘met l *= 4: CALL mouseCmctl, mb, imx, irny) 

■met l = 3: CALL mouse(mctl, mb, mx, my) 

IF mx = 0 THEN mwrking * 0 

• read script file 

OPEN "I", #1, "MATNUM.SCR" 
i = 0: j = 0: k = 0 
DO UNTIL EOF(1 ) 

i = i + Is IF i > maxscript THEN progexit 2 
INPUT #1, nhrs, nmins, nsec, levtype(i) 
etime(i) * nhrs • 3600 + nmins • 60 ♦ nsec 

IF levtype(i) * 71 OR levtype(i) = 72 THEN j * j ♦ 1: mauto(j) = i 

IF levtype(i) = 55 OR levtype(i) = 56 THEN k = k + 1: mcomtsk(k) = i 

IF j > 49 OR k > 49 THEN progexit 2 
LOOP 
CLOSE #1 
maxevents = i 
maxmauto = j 
maxmcom = k 

1 date and time stamp output data files 

OPEN fildatlS FOR OUTPUT AS #1 

PRINT #1, DATES; « •; TIMES; « fildatU 
CLOSE #1 

OPEN fildat2S FOR OUTPUT AS #2 

PRINT #2, DATES; •• »; TIMES; » «; fildat2S 
CLOSE #2 

OPEN fi ldat3S FOR OUTPUT AS #3 

PRINT #3, DATES; " "; TIMES; “ "; fildat3S 
CLOSE #3 

OPEN f i ldat4S FOR OUTPUT AS #4 

PRINT #4, DATES; " «; TIMES; " «; fildat4$ 

CLOSE #4 

OPEN fildatSS FOR OUTPUT AS #5 

PRINT #5, DATES; " «; TIMES; '• '•; fildat5$ 

CLOSE #5 


CALL rsout(255) 'start signal to RS-232 port 

clktics s TIMER 'hold time of day tics til exit 

TIMES = "00:00:00" 'set clock to zero 
t beg in * TIMER 

oldt = tbegin: tnow = tbegin 


1 initialize prior to realtime 


trackgrid 8 
tracking 99 

itreode = 2: itreodeb = 2 
msgleft = 1: msgrt = 2 
automessage msgleft, msgrt 


'put up gray grid 
'setup tracking 
'init tracking to auto 
'select msg 
'display tracking msg 


Iscrpindx * 1 

mantrksel * 1: itrktog = 0 
Itoggrn = 0: Itogred = 0 
ictlf7 = 0 


'init script index 
'subj control trking, trk toggle 
'toggles for light task (off) 
*ctl-f7 toggle (off) 
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Itogml » 0: ltogm2 = 0: ltogm3 * 0: Ltog4 = 0 'dial toggles 
secm2 = -2!: seclast * -II 'timing counters 

lyellol = 0: lyello2 * 0: lyetlo3 * 0: lyello4 * 0 'resp confirm tog 
rtyell = 01: rtyel2 * 01: rtyel3 * 01 : rtyeU « 0! 'resp confirm timer 

levtask * 2: levtaskold = 2 1 init task level 

nby2 = 1: nresby2 « 1 'alternation toggles 

1 task toggles 0=0ff 1=ON 

Icomtask = 1: Imontask * 1: lighttask * 1: Ipumpfail = 1: Iresdisp = 1 

schedultrk 99: schedulcom 99 'init scheduling 

resource 99, 0 'init resource mgmt 

'PUT <mx, my), mcursor 'put mouse cursor on screen 

'REALTIME LOOP 

' ictr = 0 'counter to check for spare time in loop 
realtime: 

1 ictr = ictr + 1 'incr counter to check for spare time in loop 

'mous input 'check for mouse inputs and update mouse cursor 

' detect remote inputs via Serial link 

CALL rsin(ircv) 'get char from RS-232 port 

IF ircv > 100 THEM keyfunct = ircv - 100: keypressed 0, keyfunct 
IF ircv > 0 THEN keyasc = ircv: keypressed keyasc, 0 

• detect keypresses 

a$ = INKEYS 
IF aS <> "« THEN 
keyasc = ASC(a$) 

IF keyasc * 0 THEN keyfunct = ASC(RIGHTS(aS, 1)) ELSE keyfunct = 0 
' LOCATE 41, 5: PRINT keyasc; keyfunct; 'display codes for key pressed 
keypressed keyasc, keyfunct 
END IF 

' obtain present time & do 1 & 2 sec updates 

tnow * TIMER 
secnow » FlX(tnow) 

IF secnow <> seclast THEN 

LOCATE 21, 3: COLOR 14: PRINT TIKE$; 'show elapsed time each second 
seclast * secnow 
IF nresby2 * 1 THEN 
nresby2 * 0 

IF Iresdisp * 0 THEN resourceauto 1 ‘pumps on AUTO 
resource 0, 1 
ELSE 

nresby2 = 1 
END IF 
END IF 

1 check elapsed time for new script events 

IF tnow >= et i me ( Iscrpindx) THEN 
l event « l evtype( Iscrpindx) 

scriptcode levent 'act on script item 

Iscrpindx = Iscrpindx + 1 'increment index 
IF Iscrpindx > maxevents THEN progexit 1 
END IF 

1 begin approx 1/10 sec updates 

IF tnow - oldt < .1 THEN GOTO skiptenth 
oldt * oldt ♦ .1 

IF levtask <> levtaskold THEN blend 'change task mix based on new task level 
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monitoring moncode 'update monitoring task 

IF itrktog * 1 THEN 
itrktog = 0 

IF mantrksel > 0 AND itrcode * 1 THEN 
itrcode = 2: msgleft * Is msgrt = 2: automessage msgleft, msgrt 
ELSE IF mantrksel > 0 AND itrcode * 2 THEN 

itrcode » 1: msgleft * 2: msgrt * Is automessage msgleft, msgrt 
END IF 
END IF 

IF itrcode <> itrcodeb THEN 
IF itrcode * 1 THEN tracking 3 ELSE tracking 4 
itrcodeb * itrcode 
END IF 

tracking itrcode 'update tracking 

1 LOCATE 42, 3: PRINT ictr; : ictr * 0 'diag chk of prog spare time 

• check for timeout on monitoring tasks 

IF Itoggrn > 0 AND tnow - rtgrn > tmoutgrn THEN 
warnlights 2: Itoggrn = 0 
savedata 5, tnow, rtgrn 
END IF 

IF Itogred > 0 AND tnow - rtred > tmoutred THEN 
warnlights 3: Itogred = 0 
savedata 6, tnow, rtred 
END IF 

IF Ltogml > 0 AND tnow - rtmonl > tmoutmon THEN 
moncode * Is ltogml = 0 
savedata 1, tnow, rtmonl 
END IF 

IF ltogm2 > 0 AND tnow - rtmon2 > tmoutmon THEN 
moncode = 2: ltogm2 = 0 
savedata 2, tnow, rtmon2 
END IF 

IF l togm3 > 0 AND tnow - rtmon3 > tmoutmon THEN 
moncode = 3: ltogm3 = 0 
savedata 3, tnow, rtmon3 
END IF 

IF ltogm4 > 0 AND tnow - rtmon4 > tmoutmon THEN 
moncode = 4: ItognV* = 0 
savedata 4, tnow, rtmon4 
END IF 

1 check for timeout of prob yellow 

lyeltot * lyellol + lyello2 ♦ lyello3 + lyello4 

IF lyeltot = 0 THEN GOTO ski ptenth 'see if we can skip all checks 

IF lyellol > 0 AND tnow - rtyell > tmoutyello THEN 
•PUT (mx, my), mcursor 
lyellol * 0: LINE (28, 135)-(47, 138), 0, BF 
•PUT (mx, my), mcursor 
ELSEIF lyellol > 0 THEN 
Imonpl = 0 
END IF 

IF lyello2 > 0 AND tnow - rtyel2 > tmoutyello THEN 
'PUT (mx, my), mcursor 

lyel lo2 * 0: LINE (68, 135)-(87, 138), 0, BF 
•PUT (mx, my), mcursor 
ELSEIF lyel lo2 > 0 THEN 
lmonp2 = 0 
END IF 
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IF lyello3 > 0 AND tnow - rtyel3 > tnoutyello THEN 
•PUT (mx, my), mcursor 

lyello3 = 0: LINE (108, 135>-(127, 138), 0, BF 
•PUT (mx, my), mcursor 
ELSE IF lyello3 > 0 THEN 
lmonp3 = 0 
END IF 

IF lyelto4 > 0 AND tnow - rtyel4 > tmoutyello THEN 
•PUT (mx, my), mcursor 

lyel io4 = 0: LINE (148, 135) 067, 138), 0, BF 
•PUT (mx, my), mcursor 
ELSE IF lyello4 > 0 THEN 
Lmonp4 = 0 
END IF 

skiptenth: 'SKIPTENTH end of approx 1/10th interval section 

keyasc * 0: keyfunct = 0 

GOTO realtime 
END 
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• A U T 0 M E S S A G E sub 

• J. R. Comstock, Jr. 

SUB automessage (msgleft, msgrt) 

■PUT (mx, my), mcursor 
LINE (202, 158)-<290, 168), 0, BF 

SELECT CASE msgleft <1 blank, 2 AUTO AVAIL, 3 [AUTO END] 
CASE 2 

COLOR 10: LOCATE 21, 27: PRINT "AUTO AVAIL"; 

CASE 3 

LINE (202, 158)-(290, 168), 14, BF 
PUT (206, 160), lab6 

CASE ELSE 
END SELECT 

COLOR 10 

SELECT CASE msgrt 
CASE 1 

LOCATE 21, 57: PRINT « MANUAL"; 

CASE 2 

LOCATE 21, 57: PRINT “AUTO ON"; 

CASE ELSE 
END SELECT 

'PUT (mx, my), mcursor 
ENO SUB 
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• B L E N D sub 

1 J. R. Comstock, Jr. 

SUB blend STATIC 

COLOR 8: LOCATE 43 f 76: PRINT levtask; 'show level lower rt corner 

i « 0 - levtask: savedata i, tnow, tnow 'save level in mon file (neg vals) 

IF levtask <= 5 THEN 'monitoring tasks 
lighttask * 1 'new problems TRUE 
Imontask * 1 
ELSE 

lighttask * 0 'new problems FALSE 
Imontask * 0 
END IF 

SELECT CASE levtask 
CASE 1 

trkxinc * .04: trkyinc * .03 'high trk difficulty 


save track tnow. 

trkxinc, 0! 

itrcode * 1 

'tracking MANUAL 

Icomtask = 1 

'comm task ON 

Ipumpfail * 1 

'possible pump fails TRUE 
'res mgmt MANUAL 

Iresdisp = 1 

CASE 2 

trkxinc = .01: 

trkyinc = .0075 'low trk dif 

savetrack tnow, 

trkxinc, 0! 

itrcode = 1 

'tracking MANUAL 

Icomtask = 1 

'comm task ON 

Ipumpfail = 1 

'possible pump fails TRUE 

Iresdisp = 1 

'res mgmt MANUAL 

CASE 3 

itrcode * 2 

'tracking AUTO 
•comm task OFF 

Icomtask = 0 

Ipunpfail = 1 

'possible pump fails TRUE 

Iresdisp = 1 

'res mgmt MANUAL 

CASE 4 

itrcode = 2 

'tracking AUTO 

Icomtask = 0 

•comm task OFF 

Ipumpfail = 0 

'possible pump fails FALSE 

Iresdisp = 1 

'res mgmt MANUAL 

CASE 5 

itrcode = 2 

'tracking AUTO 

Icomtask 3 0 

'comm task OFF 

Ipumpfail * 0 

'possible pump fails FALSE 

Iresdisp * 0 

'res mgmt AUTO 

CASE 6 

itrcode * 2 

'tracking AUTO 

Icomtask * 0 

'comm task OFF 

Ipunpfail = 0 

'possible pimp fails FALSE 
'res mgmt AUTO 

Iresdisp = 0 


CASE ELSE 
END SELECT 


IF levtask >* 5 AND levtaskold <* 4 THEN 'show auto display 
resourceauto 2 
END IF 

IF levtask <* 4 AND levtaskold >= 5 THEN 'switch to MANUAL 
resource 0, 1 
save fuel 79 
END IF 

msgleft * 1: automessage msgleft, itrcode 
levtaskold * levtask 
END SUB 
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• 

' C 0 M M U N I CATE sub 

' J. R. Comstock, Jr. 

SUB comnunicate (dfreq, nrad) STATIC 

• setup 

IF nrad = 99 THEM 

freql = 108.5: freq2 = 110.3: freq3 * 119.7: freq4 » 120.9 
COLOR 14 

LOCATE 29, 12: PRINT USING ■'####.#"; freql; 

LOCATE 31, 12: PRINT USING •'## ##.#••; freq2; 

LOCATE 33, 12: PRINT USING freq3; 

LOCATE 35, 12: PRINT USING freq4; 

COLOR 11: LOCATE 29, 19: PRINT "("; CHRS(27); ")<«; CHR$(26); ")"; 

LOCATE 29, 4: PRINT CHR$(25); CHRS(24); 
i radio * 1 

COLOR 9: LOCATE 25, 5: PRINT "Callsign »; : COLOR 14: PRINT "NGT504"; 

COLOR 3 

LOCATE 29, 7: PRINT "NAVI"; 

LOCATE 31, 7: PRINT "NAV2"; 

LOCATE 33, 7: PRINT "C0M1"; 

LOCATE 35, 7: PRINT "COM2"; 

LINE (63, 292)*(120, 306), 11, B 
LOCATE 38, 10: PRINT "ENTER"; 

EXIT SUB 
END IF 

1 change radio & up/ down arrows 

IF nrad <> 0 THEN 

•PUT (nut, my), mcursor 

LOCATE 27 ♦ iradio * 2, 19: PRINT " "; 

LOCATE 27 ♦ iradio • 2, 4: PRINT " "; 

IF nrad > 10 THEN 
iradio * nrad - 10 
ELSE 

iradio * iradio ♦ nrad 
IF iradio > 4 THEN iradio * 1 
IF iradio < 1 THEN iradio = 4 
END IF 

COLOR 11: LOCATE 27 + iradio • 2, 19: PRINT "(»; CHR$(27); ")("; CHRS(26>; »)» 
LOCATE 27 + iradio • 2, 4: PRINT CHR$(25>; CHR$(24); 
savecoom iradio, 0! 

•PUT (mx, my), mcursor 
EXIT SUB 
END IF 
COLOR 14 

SELECT CASE iradio 

CASE 1 'navi 

freql = freql ♦ dfreq 

IF freql > 118! THEN freql = 108.1 

IF freql < 108! THEN freql = 117.9 

LOCATE 29, 12: PRINT USING ••####.#"; freql; 

savecomm iradio, freql 

CASE 2 *nav2 

freq2 * freq2 + dfreq 

IF freq2 > 118! THEM freq2 = 108.1 

IF freq2 < 108! THEN freq2 = 117.9 

LOCATE 31, 12: PRINT USING "####.#"; freq2; 

savecomm iradio, freq2 

CASE 3 'coml 

freq3 » freq3 ♦ dfreq 

IF freq3 > 136! THEN freq3 = 118.1 

IF freq3 < 118! THEN freq3 * 135.9 

LOCATE 33, 12: PRINT USING ••####.#••; freq3; 

savecomm iradio, freq3 
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CASE 4 'com2 

freq4 = freq4 • dfreq 

IF freq4 > 1361 THEM freq4 * 118.1 

IF freq4 < 1181 THEM freq4 « 135.9 

LOCATE 35, 12: PRINT USING "####.#«; freq4; 

savecomm 1 radio, freq4 

CASE ELSE 
END SELECT 
END SUB 
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•KEYPRESSED sub 

1 J. R. Comstock, Jr. 

SUB keypressed (keyasc, keyfunct) STATIC 

SELECT CASE keyasc * 11011 - function keys 

CASE 0 

CASE 13 

savecomm 13, 0* 

CASE 33, 35, 36, 37 'shift 1 3 4 5 to fail puips 
jj = keyasc + 48: resource 1, jj: EXIT SUB 

CASE 64 'shift 2 fai l p2 
resource 1, 82: EXIT SUB 

CASE 94 'shift 6 fail p6 
resource 1, 86: EXIT SUB 

CASE 38 'shift 7 fail p7 
resource 1, 87: EXIT SUB 

CASE 42 'shift 8 fail p8 
resource 1, 88: EXIT SUB 

CASE 49 TO 56 '1 to 8 toggle pumps 
resource keyasc, 0: EXIT SUB 

CASE ELSE 

END SELECT 

SELECT CASE keyfunct 'function keys 

CASE 0 
EXIT SUB 

CASE 59 'fl 
moncode « 1 
IF Itogml = 0 THEN 
savedata 1, tnow, tnow! 

ELSE 

Itogml = 0: savedata 1, rtmonl, tnow 
'PUT (mx, ray), mcursor 
LINE (28, 135 ) - (47, 138), 14, BF 
'PUT (mx, my), mcursor 
lyellol = 1: rtyell » tnow: Imonpl = 0 
END IF 

CASE 60 1 f2 
moncode = 2 
IF ltogm2 = 0 THEN 
savedata 2, tnow, tnow! 

ELSE 

ltogm2 * 0: savedata 2, rtmon2, tnow 
•PUT (mx, my), mcursor 
LINE (68, 135)-(87, 138), 14, BF 
•PUT (mx, my), mcursor 
lyello2 = 1: rtyel2 = tnow: lmonp2 = 0 
END IF 

CASE 61 1 f 3 
moncode = 3 
IF ltogm3 = 0 THEN 
savedata 3, tnow, tnow! 

ELSE 

ltogm3 = 0: savedata 3, rtmon3, tnow 
'PUT (mx, my), mcursor 
LINE (108, 135)- (127, 138), 14, BF 
'PUT (mx, my), mcursor 
lyello3 = 1: rtyel3 = tnow: lmonp3 = 0 
END IF 
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CASE 62 ' f4 
moncode * 4 
IF Itogmt ■ 0 THEM 
savedata 4, tnow, tnowl 
ELSE 

ltogm4 = 0: savedata 4, rtmon4 f tnow 
'PUT (mx, my), mcursor 
LINE (148, 135)-(167, 138), 14, BF 
'PUT (mx, my), mcursor 
lyello4 = 1: rtyel4 = tnow: lmonp4 = 0 
ENO IF 

CASE 63 ' f 5 

IF Itoggrn = 0 THEN 
savedata 5, tnow, tnow 
ELSE 

warnlights 2: Itoggrn = 0: savedata 5, rtgrn, tnow 
END IF 

CASE 64 'f6 

IF Itogred = 0 THEN 
savedata 6, tnow, tnow 
ELSE 

warnlights 3: Itogred = 0: savedata 6, rtred, tnow 
END IF 

CASE 65 # f7 deer tracking sens if ‘f7 invoked first 
IF ictlf7 > 0 THEN 
itrksens * itrksens + 1 
IF itrksens > 50 THEN itrksens = 50 
LOCATE 42, 2: PRINT USING "###"; 51 - itrksens; 

END IF 

CASE 66 'f8 incr tracking sens if ‘f7 invoked first 
IF ict lf7 > 0 THEN 
itrksens * itrksens - 1 
IF itrksens < 3 THEN itrksens = 3 
LOCATE 42, 2: PRINT USING "###"; 51 - itrksens; 

END IF 

CASE 72 'up arrow Comm task 
communicate 0!, -1 

CASE 75 'left arrow 
communicate -.2, 0 

CASE 77 'right arrow 
communicate .2, 0 

CASE 80 'down arrow 
communicate 0! , 1 

CASE 84 'shift-fl res mgmt AUTO 
IF Iresdisp * 1 THEN 
Iresdisp = 0 
resourceauto 2 
END IF 

CASE 85 'shif t-f2 res mgmt MANUAL 
IF Iresdisp * 0 THEN 
Iresdisp = 1 
resource 0, 1 
savefuel 79 
END IF 

CASE 86 'shift-f3 

levtask = levtask + 1 
IF levtask > 6 THEN levtask » 6 

CASE 87 'shif t-f4 

levtask = levtask - 1 
IF levtask < 1 THEN levtask = 1 
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CASE 94 'Ctl-fl 

CALL rsout(57) ‘send ownship code to voice computer 
CASE 95 'Ctl-f2 

CALL rsout(58) 'send other ship msg 

CASE 96 'Ctl-f3 present rating screen 
CALL rsout(IO) 
ratings 

CALL rsout(250) 

CASE 97 »Ctl-f4 low trk difficulty 
trkxinc = .02: trkyinc * .015 
trkxinc * .01: trkyinc 3 .0075 
savetrack tnow, trkxinc, 0 ! 

CASE 98 'Ctl-f5 med trk difficulty 
trkxinc = .03: trkyinc = .0225 
savetrack tnow, trkxinc, 0 ! 

CASE 99 'Ctl-f 6 hi trk difficulty 
trkxinc = .04: trkyinc = .03 
savetrack tnou, trkxinc, 0 ! 

CASE 100 *Ctl-f7 
If itrcode = 2 THEN 
itrcode = 1 

mantrksel = 0: ictlf7 = 1 
msg l eft = 1 : msgrt = 1 
automessage msg l eft, msgrt 

LOCATE 42, 2: PRINT USING "###"; 51 - itrksens; 

END IF 

CASE 101 'Ct l-f 8 
IF ictlf7 > 0 THEN 

ictlf7 = 0 : itrcode = 2 : mantrksel = 1 
msg l eft = 1 : msgrt = 2 
automessage msgleft, msgrt 
LOCATE 42, 2: PRINT « 

END IF 

CASE 102 'Ctl-f9 to pause 

t i c pause = TIMER: tpauseS = TIMES 
LOCATE 42, 6 : PRINT "*** PAUSED ***"; 

DO 

BS = INKEYS 
IF BS <> THEN 

IF ASC(BS) = 0 AND ASC(RIGHTS(BS, 1)) = 102 THEN EXIT DO 
END IF 
LOOP 

LOCATE 42, 6 : PRINT $PC(15); 
ticpause = TIMER - ticpause 
TIMES s tpauseS 

tot l pause 3 tot l pause + ticpause 

CASE 103 'Ctl-flO program exit 
CALL rsout(254) 'send end signal to RS*232 port 
progexit 4 

CASE 104 'ALt-fl scale 1 bias 
IF Itogml 3 o then 

IF 1NTCRND • 2!) = 0 THEN moncode = 5 ELSE moncode = 9 
rtmonl = tnow 
Itogml 3 i 
END IF 

CASE 105 • A l t- f 2 scale 2 bias 
IF ltogm2 3 0 THEN 

IF INT(RND • 2!) = 0 THEN moncode 3 6 ELSE moncode 3 10 
rtmon 2 = tnow 
ltogm 2 = 1 
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END IF 

CASE 106 'Alt-f3 scale 3 bias 
IF ItogmS « 0 THEN 

IF INT(RND *21) =0 THEN moncode = 7 ELSE moncode * 11 
rtmon3 * tnow 
ltogm3 - 1 
END IF 

CASE 107 'Alt-f4 scale 4 bias 
IF ttogntf * 0 THEN 

IF INT(RND * 2!) = 0 THEN moncode = 8 ELSE moncode = 12 
rtmon4 = tnow 
ltogm4 = 1 
END IF 

CASE 108 *Alt-f5 green off 
IF Itoggrn = 0 THEN 
warnlights 1 
rtgrn • tnow 
Itoggrn * 1 
END IF 

CASE 109 'Al t-f6 red on 
IF Itogred = 0 THEN 
warnlights 4 
rtred = tnow 
Itogred = 1 
END IF 

CASE 120 TO 127 'Alt 1 to Alt 8 fix pump failures 
jj = keyfunct - 29: resource 1, jj 

CASE ELSE 

savedata 0, tnow, tnow 

END SELECT 
END SUB 
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• M 0 N 1 T G R 1 D sub 

• j. R. Comstock, Jr. 

SUB monitgrid (igridcol) STATIC 

LINE (25, 22)-(75, 44). 11. B 
LINE (27, 24)-(73, 42). 11. B 
LINE (115, 22)-(165, 44). 11, B 
LINE (117, 24)-(163, 42), 11, B 

' probabi l i ty 

FOR lx = 40 TO 160 STEP 40 
LINE (lx - 15, 64)-(lx ♦ 10, 140), igridcol, B 
LINE (lx, 102)*(lx ♦ 9, 102), igridcol 
LINE (lx ♦ 5, 110)-(lx ♦ 9, 110), igridcol 

LINE (lx ♦ 5, 118)-(lx ♦ 9, 118), igridcol 

LINE (lx ♦ 5, 94)-(lx ♦ 9, 94). igridcol 

LINE (lx ♦ 5, 86)-( lx + 9, 86), igridcol 

LINE (lx + 5, 126)-(lx + 9, 126), igridcol 

LINE (lx ♦ 5, 78)-(lx + 9, 78), igridcol 

NEXT lx 

COLOR igridcol 

IF igridcol = 11 THEN COLOR 3 
LOCATE 5, 11: PRINT "F5"; 

LOCATE 5, 22: PRINT "F6"; 

LOCATE 19, 5: PRINT "FI F2 F3 F4"; 

END SUB 
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• MON I TOR I NG sub 

1 J. R. Comstock, Jr. 

SUB monitoring (monoffset) STATIC 

SELECT CASE monoffset 

CASE 99 1 setup initially 

FOR lx * 28 TO 148 STEP 40 'put wedges in initial position 
PUT (lx, 96), Iwedg 
NEXT lx 

Imid = 96: l up = 85: l down * 107 'position for offsets 

loffl * 96: loff2 * 96: loff3 = 96: loff4 = 96 'current positions 

monlb * 96: mon2b = 96: mon3b = 96: mon4b = 96 'previous positions 

xsinl * 0: xsin2 * 0: xsin3 * 0: xsin4 = 0 

Imonpl « 0: lmonp2 = 0: lmonp3 = 0: lmonp4 = 0 

» calculate sine wave arrays of different frequencies for each gauge 

DO UNTIL xsinl > pi 2 

Imorpl = Imonpl + 1 'increment array index 

xsinl = xsinl ♦ .1 'increment for sine function 
mon1vec( Imonpl) = INT(SIN(xsin1 ) *8!) 

LOOP 

Imonpl max * Imonpl 
DO UNTIL xsin2 > pi2 

lmonp2 = lmonp2 ♦ 1 'increment array index 

xsin2 * xsin2 + .15 'increment for sine function 
mon2vec(lmonp2) * INT($IN(xsin2) • 81 ) 

LOOP 

lmonp2max = lmonp2 
DO UNTIL xsin3 > pi2 

lmonp3 « lmonp3 ♦ 1 'increment array index 

xsin3 « xsin3 + .08 'increment for sine function 
mon3vec(lmonp3) = INT(SIN(xsin3) *8!) 

LOOP 

lmonp3max a lmonp3 
DO UNTIL xsin4 > pi2 

Lmonp4 = lmonp4 + 1 'increment array index 

xsin4 = xsin4 ♦ .18 'increment for sine function 
mon4vec<lmonp4) = INT(SIN(xsin4) *8!) 

LOOP 

lmonp4max * lmonp4 


Imonpl = 0: lmonp2 = 0: lmonp3 = 0: lmonp4 = 0 


‘length of sine wave arrays 

'LOCATE 41, 2: PRINT Imonplmax; lmonp2max; lmonp3max; lmonp4max 

' monoffset indicates required offset 

CASE 1 'normal case 
loffl = Imid 
CASE 2 

loff2 « Imid 
CASE 3 

loff3 = Imid 
CASE 4 

loff4 * Imid 

CASE 5 'up case 

loffl » lup 

CASE 6 

lof f 2 = lup 

CASE 7 

lof f3 a lup 

CASE 8 

lof f4 a lup 
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CASE 9 'down case 
loffl = Idown 
CASE 10 
loff2 = Idown 
CASE 11 
loff3 = Idown 
CASE 12 
l off 4 = Idown 

CASE ELSE 
END SELECT 

' increment indices for sine wave arrays and start over if at end of array 

Imonpl = Imonpl + Is IF Imonpl > Imonpl max THEN Lmonpl » 1 

lmonp2 * lmonp2 + Is IF lmonp2 > lmonp2max THEN lmonp2 = 1 

lmonp3 » lmonp3 ♦ Is IF lmonp3 > Imonjtfmax THEN Lmonp3 = 1 

lmonp4 * Lmonp4 ♦ 1; IF lmonp4 > lnwnp4max THEN lmonp4 = 1 

1 graphic position is sine wave - offset 

monl = loffl - mon1vec( Imonpl) 
mon2 = loff2 - mon2vec(Lmonp2) 
mon3 = lof f3 - mon3vec( lmonp3) 
mon4 = lof f4 - mon4vec( lmonp4) 

1 erase old position, put up new position 

IF monlb <> monl THEN 

PUT (28, monlb), Iwedg: PUT (28, monl), Iwedg 
monlb « monl 
END IF 

IF mon2b <> mon2 THEN 

PUT (68, mon2b), Iwedg: PUT (68, mon2), Iwedg 
mon2b = mon2 
END IF 

IF mon3b <> mon3 THEN 

PUT (108, mon3b), Iwedg: PUT (108, mon3), Iwedg 
mon3b = mon3 
END IF 

IF mon4b <> mon4 THEN 

PUT (148, mon4b), Iwedg: PUT (148, mon4), Iwedg 
mon4b = mon4 
END IF 

END SUB 
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• MOUS I MPUT sub 

1 J. R. Comstock, Jr. 

SUB mous input STATIC 

1 To use mouse input for task control and rating scales, make the following 
1 changes: 1. Uncomment all lines containing CALL mouse. 2. Uncomment all 

1 lines containing PUT <mx, my), mcursor. 3. Uncomment mous input statement 
1 near beginning of realtime loop in main program. 4. Switch to alternate 
1 locate & print statements in ratings sub (two places, both commented). 

1 5. Use GuiekBasic Libraries incorporating Mouse calls (see SJ.DOC). 

mbold = mb: mxold * mx: myold = my 
'CALL mouse(mctl, mb, mx, my) 

1 LOCATE 39, 2: PRINT mctl; mb; mx; my 'diag chk for mouse values 

IF mx > 632 THEN mx = 632 'keep PUT image on screen 

IF my > 338 THEN my = 338 
IF mxold <> mx OR myold <> my THEN 
PUT (mxold, myold), mcursor: PUT (mx, my), mcursor 
END IF 

' detect mouse button and location, mx=x position, my=y position 

IF mb - mbold > 0 THEN 
IF my < 154 THEN 
IF my > 22 AND my < 45 THEN 

IF mx > 26 AND mx <94 THEN keypressed 0, 63 'grn f5 

IF mx > 115 AND mx < 184 THEN keypressed 0, 64 'red f6 

END IF 

IF my > 65 THEN 

IF mx > 26 AND mx < 50 THEN keypressed 0, 59 'monl fl 

IF mx > 66 AND mx < 90 THEN keypressed 0, 60 'mon2 f2 

IF mx > 106 AND mx < 130 THEN keypressed 0, 61 'mon3 f3 

IF mx > 146 AND mx < 170 THEN keypressed 0, 62 'mon4 f4 

END IF 
ELSE 

IF mx > 224 THEN 
IF my > 157 AND my < 171 THEN 

IF mx > 431 AND mx < 519 THEN itrktog = 1 'man/auto trk 

END IF 

IF my > 255 AND my < 274 THEN 
IF mx > 224 AND mx < 256 THEN resource 49, 0 'pump 1 

IF mx > 296 AND mx < 328 THEN resource 50, 0 'pump 2 

IF mx > 376 AND mx < 409 THEN resource 51, 0 'pump 3 

IF mx > 448 AND mx < 482 THEN resource 52, 0 'pump 4 

END IF 

IF mx > 339 AND mx < 359 THEN 
IF my > 190 AND my < 217 THEN resource 55, 0 'pump 7 

IF my > 218 AND my < 242 THEN resource 56, 0 'pump 8 

END IF 

IF my > 294 AND my < 319 THEN 
IF mx > 264 AND mx < 283 THEN resource 53, 0 'pump 5 

IF mx > 415 AND mx < 435 THEN resource 54, 0 'pump 6 

END IF 
ELSE 

IF mx > 23 AND mx < 138 THEN 

IF my > 223 AND my < 233 THEN communicate 0, 11 'NAV 1 

IF my > 239 AND my < 249 THEN communicate 0, 12 'NAV 2 

IF my > 255 AND my < 265 THEN communicate 0, 13 'COM 1 

IF my > 271 AND my < 281 THEN communicate 0, 14 'COM 2 

IF my > 286 AND my < 310 THEN 

IF mx > 60 AND mx < 124 THEN keypressed 13, 0 'enter 
END IF 
END IF 

IF my > 223 AND my < 281 THEN 

IF mx > 145 AND mx < 165 THEN communicate -.2, 0 'freq dwn 
IF mx > 169 AND mx < 189 THEN communicate .2, 0 'freq up 

END IF 
END IF 
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END IF 
END IF 
END SUB 


B - 19 



MATV40J Program Listing 


•PROGEXIT sub 

1 J. R. Comstock, Jr. 

SUB progexit (terror) 

CLS : SCREEN 0: WIDTH 80, 25 
PRINT "End of Run": PRINT 

’ write monitoring data file 

IF indrt = 0 THEN GOTO secondfile 

OPEN fildatlS FOR APPEND AS #1 
FOR i = 1 TO indrt 

PRINT #1, USING »#####.«#"; tmlog(i); 
PRINT #1, USING “ ##"; ltyp(i); 

PRINT *1, USING " ###*.##"; rt(i) 

NEXT i 
CLOSE #1 

1 write tracking data file 

secondf i le: 
tracking 4 

IF ixtr = 0 THEN GOTO thirdfile 

OPEN fildat2$ FOR APPEND AS #2 
FOR i = 1 TO ixtr 

IF xntrv(i) > 0! THEN 

rms = SQR(ssqv(i) / xntrv(i)) 

ELSE 

rms = 01 
ENO IF 

PRINT #2, USING "#####.##"; tmtrv(i); 
PRINT #2, USING " ########.##"; ssqv(i); 
PRINT #2, USING " ####"; xntrv(i); 

PRINT #2, USING " ####.##"; rms 
NEXT i 
CLOSE #2 

1 write resource mgmt data file 
thirdf i le: 

IF indfuel = 0 THEN GOTO fourthfile 

OPEN f i ldat3S FOR APPEND AS #3 
FOR i = 1 TO indfuel 
PRINT #3, USING »#####. ##"; tmfuel(i); 
PRINT #3, USING " ##"; ndpump(i); 

PRINT #3, USING " ####»; lfa(i); 

PRINT #3, USING " ####"; tfb(i); 

PRINT #3, USING " ####"; lfc(i); 

PRINT #3, USING " ####"; lfd(i) 

NEXT i 
CLOSE #3 

1 write communications data file 
fourthfile: 

IF indcom = 0 THEN GOTO prtmsg 

OPEN f i ldat4$ FOR APPEND AS #4 
FOR i = 1 TO indcom 
PRINT #4, USING "#####.##"; tmcom(i); 
PRINT #4, USING " ##"; icomact(i); 

PRINT #4, USING " ####.##"; freqv(i) 
NEXT i 
CLOSE #4 

prtmsg: 

SELECT CASE terror 
CASE 1 
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PRINT "Exceeded maximum number of events in script" 
CASE 2 

PRINT “Exceeded script array boundary" 

CASE 3 

PRINT "Normal exit at end of script" 

CASE 4 

PRINT "User terminated" 

CASE ELSE 
END SELECT 

■fix clock 


PRINT s PRINT "Task run time: TIMES 

clktics = clktics ♦ TIMER + tot l pause 

zhrs * INTlclktics / 3600!) 

zmin * INT((clktics - zhrs * 3600!) / 60!) 

zsec = INTCclktics - (zhrs • 3600! ♦ zmin • 60!)) 

IF zhrs > 23 THEN zhrs = zhrs - 24 

zlS * RIGHTS(STRS(zhrs), 2): IF LEFT$(z1S, 1) * " " THEN zlS * "0" + RIGHTSU1S, 1) 

z2S * RIGHTS(STRS(zmin), 2): IF LEFT$(z2S, 1) = « « THEN z2$ » "0" + RIGHT$(z2S, 1) 

Z3S * RIGHT$(STR$(zsec), 2): IF LEFT$(z3$, 1) « " " THEN z3S « "0" ♦ RIGHTS(z3S, 1) 

clksetS * zlS ♦ ":" ♦ z2S ♦ ":" + z3$ 

TIMES « clksetS 

PRINT : PRINT "Time set to: "; TIMES 
END 

END SUB 
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•RATESETUP sub 

1 J. R. Comstock, Jr. 

SUB ratesetup STATIC 

SCREEN 9, , 1, 1 'switch screen pages 

COLOR 15, 1 

LINE (15, 10)-(624, 339), 15, B 'screen border 
LINE (16, 309)- (623, 309), 15 
LOCATE 4, 35: PRINT "RATING SCALES"; 

FOR iypos = 70 TO 275 STEP 41 'draw scales 

LINE (170, iypos) -(470, iypos), 15 
FOR ixpos = 170 TO 470 STEP 30 
LINE (ixpos, iypos)-(ixpos, iypos - 14), 15 
NEXT ixpos 

FOR ixpos = 185 TO 455 STEP 30 
LINE (ixpos, iypos)-(ixpos, iypos - 7), 15 
NEXT ixpos 

LINE (320, iypos - 15)-(320, iypos - 18), 15 
NEXT iypos 

FOR irow = 10 TO 35 STEP 5 
LOCATE irow, 18: PRINT "Low"; 

LOCATE irow, 61: PRINT "High"; 

NEXT irow 

LOCATE 25, 17: PRINT "Good"; 

LOCATE 25, 61: PRINT "Poor"; 

LOCATE 8, 7: PRINT "MENTAL DEMAND"; 

LOCATE 13, 6: PRINT "PHYSICAL DEMAND"; 

LOCATE 18, 6: PRINT "TEMPORAL DEMAND"; 

LOCATE 23, 9: PRINT "PERFORMANCE"; 

LOCATE 28, 13: PRINT "EFFORT"; 

LOCATE 33, 9: PRINT "FRUSTRATION"; 

COLOR 7, ibckgnd 

SCREEN 9, , 0, 0 'switch back 

END SUB 
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• R A T I N G S SUb 

1 J. R. Comstock, Jr. 

SUB ratings STATIC 

ticpause * TIMER: t pauses » TIMES 'hold time 
‘PUT <mx, my), mcursor 
mxhold * mx: myhold = my 

SCREEN 9, , 1, 1 'switch to second screen page 

COLOR 15, 1 

‘LOCATE 41, 6: PRINT " Mouse or ■; CHRS(27); ■ CHRS(26); M to Move”; SPC(12); 

•PRINT “LEFT Mouse Button or CHR$(25); “ for Next Scale "; 

* when using CALL mouse then use above two lines & comment out two below 

LOCATE 41, 17: PRINT CHR$<27); “ CNRS(26); " to Move"; SPC<21); 

PRINT CHRS(25); " for Next Scale"; SPC(2); 

FOR i = 1 TO 6 'initialize 

Ixold(i) * 320 
lxpos(i) » -9 
lypos(i) * 31 ♦ i • 41 
NEXT i 

nscale = 0: lendflg = 0: mb = 0: tslimit = 60! 

scaleloop: 
nscale = nscale + 1 
IF nscale > 6 THEN 
' LOCATE 41, 6: COLOR 14, 1 

' PRINT "LEFT Mouse Button or "; CHR$<25); " for Changes"; 

' PRINT SPC<6); "RIGHT Button or RETURN to Exit"; 

' when using CALL mouse then use above three lines & comment out two below 
LOCATE 41, 17: COLOR 14, 1 

PRINT CHRS(25); " for Changes"; SPC(18); "RETURN or ESC to Exit"; 

DO ‘wait for input following all 6 scales 

mbx a mb 

IF TIMER - ticpause >= tslimit THEN GOTO exitscale 
1 CALL mouse(mctl, mb, mx, my) 

IF mb - mbx = 2 THEN GOTO exitscale 
IF mb - mbx * 1 THEN EXIT DO 
ryS = INKEYS 
IF ryS <> »•" THEN 

IF ASC(ryS) = 0 AND ASC(RIGHT$(ry$, D) =80 THEN EXIT DO 
END IF 

IF ryt = CHR$(27) OR ryS = CHRS(13) THEN GOTO exitscale 
IF ry$ = CHR$(32) THEN EXIT DO 
LOOP 

lendflg * 1 
nscale = 1 
END IF 

PUT (Ixold(nscale) - 12, lypos(nscale)), Iratel 
' met l = 4: CALL mouse(mctl, mb, Ixold(nscale), my): met l = 3 
IF Ixpos(nscale) > 0 THEN 
PUT (Ixold(nscale) - 9, lypos(nscale)), lrate2 
ELSE 

Ixpos(nscale) = 320 
END IF 

DO 

ryi * INKEYS 

lehr = 0: keyfet = 0 

IF ryS = "•• THEN GOTO chkmouse 

lehr = ASC(ryS): IF lehr = 0 THEN keyfet = ASC(RIGHT$(ry$, 1)) ELSE keyfet = 0 
IF keyfet = 75 THEN 
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i 


Ixpos(nscale) = Ixpos(nscale) - 
mctl = 4: CALL mouse(mctl , mb, 
ELSE IF keyfct * 77 THEN 

Ixpos(nscale) ■ Ixpos(nscale) + 
met l = 4: CALL mouse(mctl, mb, 
END IF 


10 

Ixold(nscale) - 10, my): met l = 3 
10 

Ixold(nscale) + 10, my): mctl * 3 


chkmouse: 
mbx * mb 

1 CALL mouse (met l, mb, mx, my) 

IF mb - mbx * 1 THEN EXIT DO 
IF murking * 1 THEN Ixpos(nscate) * mx 
IF Ixpos(nscale) < 170 THEN Lxpos(nscale) * 170 
IF Ixpos(nscale) > 470 THEN Ixpos(nscale) = 470 
IF Ixold(nscale) <> Ixpos(nscale) THEN 
PUT (Ixold(nscale) - 12, lypos(nscale)), Iratel 
PUT (Ixpos(nscate) - 12, lypos(nscale)), Iratel 
Ixold(nscale) * Ixpos(nscale) 

END IF 

IF lehr » 32 OR keyfct * 80 THEN EXIT DO 
IF lendflg > 0 THEN 

IF lehr * 27 OR lehr = 13 OR mb - mbx = 2 THEN 
PUT (Ixold(nscale) - 12, lypos(nscale)), Iratel 
PUT (Ixotd(nscale) - 9, lypos(nscale)), lrate2 
GOTO ex it scale 
END IF 
END IF 

IF TIMER - tiepause >= tslimit THEN EXIT DO 
LOOP 

PUT (Ixold(nscale) - 12, lypos(nscale)), Iratel 
PUT (Ixold(nscale) - 9, lypos(nscale)), lrate2 
GOTO scaleloop 


exitscale: 


OPEN f i IdatSS FOR APPEND AS # 5 

PRINT #5, USING "#####. ##"; tiepause; TIMER - tiepause; 
FOR nscale * 1 TO 6 

PUT (Ixold(nscate) - 9, lypos(nscale)), lrate2 
PRINT #5, USING « ###"; INT( ( Ixold(nscale) - 170) / 3); 
NEXT nscale 
PRINT #5, 

CLOSE #5 


COLOR 7, ibckgnd 
SCREEN 9, , 0, 0 
mx = mxhold: my = myhold 

1 mctl = 4: CALL mouse(mctl, mb, mx, my): mctl = 3 
•PUT (mx, my), meursor 

tiepause - TIMER - tiepause 
TIMES * t pauses 

totlpause a totlpause + tiepause 
END SUB 
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1 RESOURCE sub 

1 J. R. Comstock, Jr. 

SUB resource (keyhit, ifault) STATIC 

COLOR 14 

'PUT (mx, my), mcursor 
IF keyhit = 0 THEN GOTO tanks 
IF ifault > 80 THEN GOTO pumpfail 

SELECT CASE keyhit 

CASE 99 'setup & initialize 

kl « 0: k2 * 0: k3 = 0: k4 = 0 'pump off = 0, pump on * 2 
k5 = 0: k6 = 0: k7 = 0: k8 = 0 

Ipfl = 0: lpf2 = 0: lpf3 * 0: lpf4 = 0 'normal = 0, pump failure = 12 

lpf5 = 0: lpf6 » 0: lpf7 * 0: lpf8 = 0 

i pul = 0: ipu2 = 0: ipu3 * 0: ipu4 = 0 'pump rates per minute 

ipu5 = 0: ipu6 = 0: ipu7 = 0: ipu8 * 0 

iqa = 2109: iqb = 2121 'tank quantities for A & B 

iqaff = 1005: iqbff = 1010 'tank quantity supply tanks 
i30sec * -1: ilOsec = -2 'initialize timer counters 

CASE 49 'pump 1 
IF Ipfl = 0 THEN 
IF kl s 0 THEN 

kl * 2: ipul = ipfl owl: save fuel 1 
ELSE 

kl = 0: ipul = 0: save fuel -1 
END IF 

LOCATE 27, 72: PRINT USING "####"; ipul; 

LINE (233, 261W243 , 268), kl, BF 
END IF 

CASE 50 'pump 2 
IF lpf2 = 0 THEN 
IF k2 « 0 THEN 

k2 = 2: ipu2 - ipflow2: savefuel 2 
ELSE 

k2 = 0: ipu2 * 0: savefuel -2 
END IF 

LOCATE 29, 72: PRINT USING "####«; ipu2; 

LINE (306, 261 )-(316, 268), k2, BF 
END IF 

CASE 51 'pump 3 
IF l pf 3 = 0 THEN 
IF k3 = 0 THEN 

k3 = 2: ipu3 = ipflow3: savefuel 3 
ELSE 

k3 = 0: ipu3 » 0: savefuel -3 
END IF 

LOCATE 31, 72: PRINT USING ''####"; ipu3; 

LINE (384, 261 )-(394, 268), k3, BF 
END IF 

CASE 52 'pump 4 
IF lpf4 = 0 THEN 
IF k4 * 0 THEN 

k4 = 2: ipu4 = ipflow4: savefuel 4 
ELSE 

k4 = 0: ipu4 = 0: savefuel -4 
END IF 

LOCATE 33, 72: PRINT USING "####"; ipu4; 

LINE (457, 261)' (467, 268), k4, BF 
END IF 

CASE 53 'punp 5 
IF l pf 5 = 0 THEN 
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IF k5 * 0 THEN 

k5 3 2: ipu5 = ipflow5: savefuel 5 
ELSE 

k5 « 0: ipu5 = 0: savefuel -5 
END IF 

LOCATE 35, 72: PRINT USING »####"; ipu5; 
LINE (269, 306) -(279, 313), k5, BF 
END IF 

CASE 54 'pump 6 
IF lpf6 * 0 THEN 
IF k6 * 0 THEN 

k6 ■ 2: ipu6 = ipflow6: savefuel 6 
ELSE 

k6 * 0: ipu6 = 0: savefuel -6 
END IF 

LOCATE 37, 72: PRINT USING "####"; ipu6; 
LINE (420, 306)-(430, 313), k6, BF 
END IF 

CASE 55 'pump 7 
IF lpf7 = 0 THEN 
IF k7 = 0 THEN 

k7 * 2: ipu7 = ipflow7: savefuel 7 
ELSE 

k7 = 0: ipu7 = 0: savefuel -7 
END IF 

LOCATE 39, 72: PRINT USING ipu7; 

LINE (342, 206)-(352, 213), k7, BF 
END IF 

CASE 56 'pump 8 
IF lpf8 = 0 THEN 
IF k8 = 0 THEN 

k8 = 2: ipu8 = ipflow8: savefuel 8 
ELSE 

k8 * 0: ipu8 * 0: savefuel -8 
END IF 

LOCATE 41, 72: PRINT USING • , ####"; ipu8; 
LINE (342, 221) -(352, 228), k8, BF 
END IF 

CASE ELSE 
END SELECT 

'PUT (mx, my), mcursor 
EXIT SUB 

pumpfai l : 

SELECT CASE i fault 
CASE 81 'fail pi 

Ipfl = 12: kl = 0: ipul = 0: savefuel 81 
LOCATE 27, 72: PRINT USING "####"; ipul; 
LINE (233, 261)- (243, 268), Ipfl, BF 

CASE 82 'fail p2 

lpf2 = 12: k2 * 0: ipu2 = 0: savefuel 82 
LOCATE 29, 72: PRINT USING ”####"; ipu2; 
LINE (306, 261 )- (316, 268), lpf2, BF 

CASE 83 'fail p3 

l pf 3 * 12: k3 = 0: ipu3 = 0: savefuel 83 
LOCATE 31, 72: PRINT USING ipu3; 

LINE (384, 261)- (394, 268), lpf3, BF 

CASE 84 'fail p4 

lpf4 = 12: k4 = 0: ipu4 = 0: savefuel 84 
LOCATE 33, 72: PRINT USING "####•'; ipu4; 
LINE (457, 261 )- (467, 268), lpf4, BF 

CASE 85 'fail p5 
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lpf5 =■ 12: k5 = 0: ipu5 * 0: save fuel 85 
LOCATE 35, 72: PRINT USING "####"; ipu5; 
LINE <269, 306) -(279, 313), lpf5, BF 

CASE 86 'fail p6 

lpf6 = 12: k6 * 0: ipu6 = 0: savefuel 86 
LOCATE 37, 72: PRINT USING "####"; ipu6; 
LINE <420, 306)-(430, 313), lpf6, BF 

CASE 87 'fail p7 

lpf7 = 12: k7 * 0: ipu7 = 0: savefuel 87 
LOCATE 39, 72: PRINT USING "####“; ipu7; 
LINE <342, 206)-(352, 213), lpf7, BF 

CASE 88 'fail p8 

lpf8 = 12: k8 = 0: ipu8 = 0: savefuel 88 
LOCATE 41, 72: PRINT USING "####"; ipu8; 
LINE <342, 221)-(352, 228), lpf8, BF 

' fix failed punps 

CASE 91 'fix pi 

Ipfl = 0: kl = 0: ipul = 0: savefuel 91 
LOCATE 27, 72: PRINT USING "####*'; ipul; 
LINE <233, 261)- (243, 268), Ipfl, BF 

CASE 92 'fix p2 

lpf2 = 0: k2 = 0: ipu2 = 0: savefuel 92 
LOCATE 29, 72: PRINT USING "####"; ipu2; 
LINE (306, 261)-(316, 268), lpf2, BF 

CASE 93 'fix p3 

lpf3 = 0: k3 = 0: ipu3 = 0: savefuel 93 
LOCATE 31, 72: PRINT USING "####"; ipu3; 
LINE <384, 261) -(394, 268), lpf3, BF 

CASE 94 'fix p4 

lpf4 = 0: k4 = 0: ipu4 = 0: savefuel 94 
LOCATE 33, 72: PRINT USING "####"; ipu4; 
LINE <457, 261)-(467, 268), lpf4, BF 

CASE 95 'fix p5 

lpf5 = 0: k5 = 0: ipu5 = 0: savefuel 95 
LOCATE 35, 72: PRINT USING "«###«; ipu5; 
LINE <269, 306)-(279, 313), lpf5, BF 

CASE 96 'fix p6 

lpf6 = 0: k6 = 0: ipu6 = 0: savefuel 96 
LOCATE 37, 72: PRINT USING "####"; ipu6; 
LINE <420, 306) -(430, 313), lpf6, BF 

CASE 97 'fix p7 

lpf7 = 0: k7 = 0: ipu7 = 0: savefuel 97 
LOCATE 39, 72: PRINT USING "####"; ipu7; 
LINE (342, 206)-(352, 213), lpf7, BF 

CASE 98 'fix p8 

lpf8 * 0: k8 = 0: ipu8 = 0: savefuel 98 
LOCATE 41, 72: PRINT USING "####"; ipu8; 
LINE (342, 221)-<352, 228), lpf8, BF 

CASE ELSE 
END SELECT 

■PUT (mx, my), mcursor 
EXIT SUB 

tanks: 

' calculate tank quantities 

iqadev = ipul + ipu2 + ipu8 - (idropa ♦ ipu7) 
iqbdev = ipu3 + ipu4 ♦ ipu7 - (idropb + ipu8) 
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iqa = iqa + iqadev / 30 

iqb * iqb + iqbdev / 30 

iqaff * iqaff ♦ <ipu5 - ipul) / 30 

iqbff * iqbff + <ipu6 - ipu3) / 30 

1 tank A empty 

IF iqa < 0 AND k7 * 2 THEN 
iqa * 0: ipu7 = 0: k7 = 0 
LOCATE 39, 72: PRINT USING ■'####»; ipu7; 

LINE (342, 206)-(352, 213), lpf7, BF 
savefuel 70 
ELSEIF iqa < 0 THEN 
iqa = 0 
END IF 

1 tank B empty 

IF iqb < 0 AND k8 * 2 THEN 
iqb = 0: ipu8 » 0: k8 = 0 
LOCATE 41, 72: PRINT USING "####••; ipu8; 

LINE <342, 221 )-(352, 228), tpf8, BF 
savefuel 80 
ELSEIF iqb < 0 THEN 
iqb = 0 
END IF 

• supply tank A side empty 

IF iqaff < 0 THEN 

iqaff = 0: ipul * 0: kl = 0 

LOCATE 27, 72: PRINT USING •'####•'; ipul; 

LINE <233, 261 )- <243, 268), Ipfl, BF 
savefuel 10 
END IF 

1 supply tank B side empty 

IF iqbff < 0 THEN 
iqbff = 0: ipu3 * 0: k3 = 0 
LOCATE 31, 72: PRINT USING •'####"; ipu3; 

LINE <384, 261 )- (394, 268), lpf3, BF 
savefuel 30 
END IF 

' supply tank A side full 

IF iqaff > 2000 THEN 
iqaff « 2000: ipu5 = 0: k5 = 0 
LOCATE 35, 72: PRINT USING "####»; ipu5; 

LINE <269, 306)‘(279, 313), lpf5, BF 
savefuel 50 
END IF 

1 supply tank B side full 

IF iqbff > 2000 THEN 
iqbff * 2000: ipu6 * 0: k6 = 0 
LOCATE 37, 72: PRINT USING “####•'; ipu6; 

LINE <420, 306) -<430, 313), lpf6, BF 
savefuel 60 
END IF 

1 tank A full 

IF iqa > 4000 THEN 
iqa = 4000: k8 = 0: kl = 0: k2 = 0 

ipu8 * 0: LOCATE 41, 72: PRINT USING •'####"; ipu8; : LINE (342, 221 >-(352, 228), lpf8, BF 

ipul * 0: LOCATE 27, 72: PRINT USING •'«###"; ipul; : LINE (233, 261>-(243, 268), Ipfl, BF 

ipu2 = 0: LOCATE 29 , 72: PRINT USING ••####"; ipu2; : LINE (306, 261 >-(316, 268), lpf2, BF 

savefuel 80: savefuel 10: savefuel 20 
END IF 
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1 tank B full 

IF iqb > 4000 THEN 
iqb * 4000: k7 « 0: k3 = 0: k4 = 0 

ipu7 = 0: LOCATE 39, 72: PRINT USING "####"; ipu7; : LINE (342, 206)-(352, 213), lpf7, BF 

ipu3 - 0: LOCATE 31, 72: PRINT USING »##*#"; ipu3; : LINE (384, 261)-(394, 268), lpf3, BF 

ipu4 = 0: LOCATE 33, 72: PRINT USING «####«; ipu4; : LINE (457, 261)-(467, 268), lpf4, BF 

savefuel 70: savefuel 30: savefuel 40 
END IF 

1 display tank quantities 

IF Iresdisp = 1 THEN 
LOCATE 32, 33: PRINT USING "####"; iqa; 

LOCATE 32, 52: PRINT USING iqb; 

LOCATE 43, 29: PRINT USING "#*##"; iqaff; 

LOCATE 43, 48: PRINT USING "####"; iqbff; 

END IF 

1 save resource data automatically at 30 sec increments 
i30sec = i30sec ♦ 1 

IF i30sec >= 15 THEN i30sec = 0: savefuel 0 
1 update scheduling window every 10 sec 
ilOsec = ilOsec ♦ 1 

IF ilOsec >= 5 THEN ilOsec = 0: schedultrk 0: schedulcom 0 

• calculate graphic coordinates 

mga = 198 + (42 - iqa / 95) 
mgb = 198 + (42 - icjb / 95) 
mgaff = 283 ♦ (45 - iqaff / 44) 
mgbff = 283 + (45 - iqbff / 44) 

LINE (249, mga)-(296, 240), 2, BF 
LINE (249, 198) -(296, mga), 0, BF 

LINE (398, mgb)- (445, 240), 2, BF 
LINE (398, 198)-(445, mgb), 0, BF 

LINE (225, mgaff )-(252, 328), 2, BF 
LINE (225, 283)-(252, mgaff), 0, BF 

LINE (376, mgbff)-(403, 328), 2, BF 
LINE (376, 283)- (403, mgbff), 0, BF 

■PUT (mx, my), mcursor 
END SUB 
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'RESOURCEAUTO sub 

1 J. R. Comstock, Jr. 

SU8 resourcesuto (Irmode) STATIC 

SELECT CASE Irmode 
CASE 1 

IF iqa > 2550 AND k2 > 0 THEN resource 50, 0 

IF iqa < 2480 AND k2 : 0 THEN resource 50, 0 

IF iqb > 2550 AND k4 > 0 THEN resource 52, 0 

IF iqb < 2480 AND k4 = 0 THEN resource 52, 0 

IF iqaff > 1900 AND k5 > 0 THEN resource 53, 0 

IF iqaff < 1700 AND k5 = 0 THEN resource 53, 0 

IF iqbff > 1900 AND k6 > 0 THEN resource 54, 0 

IF iqbff < 1700 AND k6 * 0 THEN resource 54, 0 

IF iqa > 2520 AND kl > 0 THEN resource 49, 0 

IF iqa < 2450 AND kl * 0 THEN resource 49, 0 

IF iqb > 2520 AND k3 > 0 THEN resource 51, 0 

IF iqb < 2450 AND k3 = 0 THEN resource 51, 0 

IF iqa - iqb > 25 AND k7 = 0 THEN resource 55, 0 
IF iqa - iqb <* 25 AND k7 > 0 THEN resource 55, 0 
IF iqb - iqa > 25 AND k8 = 0 THEN resource 56, 0 
IF iqb - iqa <=> 25 AND k8 > 0 THEN resource 56, 0 

CASE 2 

'PUT (mx, my), mcursor 
COLOR 2 

LOCATE 32, 33: PRINT "AUTO"; 

LOCATE 32, 52: PRINT "AUTO"; 

LOCATE 43, 29: PRINT SPC(4); 

LOCATE 43, 48: PRINT SPC(4); 

'PUT (mx, my), mcursor 
savefuel 78 

CASE ELSE 
END SELECT 

END SUB 
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• R E S 0 U R C E 6 R I D sub 

1 j. R. Comstock, Jr. 

SUB resourcegrid (irescolor) STATIC 

• fill supply tanks 

LIRE (297, 300)-(334, 328), 2, BF 
LINE (448, 300)-(485, 328), 2, BF 

COLOR 11: LOCATE 25, 69: PRINT "Flow Rates"; 

FOR i * 2 TO 16 STEP 2 
LOCATE 25+i, 70: PRINT USING i / 2; 

NEXT i 
COLOR 14 

FOR i = 2 TO 16 STEP 2 
LOCATE 25 + 1, 75: PRINT "0"; 

NEXT i 

COLOR irescolor 

LOCATE 26, 30: PRINT "A"; : LOCATE 26, 58: PRINT "B"; 

LOCATE 37, 27: PRINT "C"; : LOCATE 37, 46: PRINT "0"; 

LOCATE 25, 44: PRINT "7"; CHR$(26); 

LOCATE 30, 44: PRINT CHR$(27); "8"; 

LOCATE 34. 32: PRINT "1"; SPC(8); “2"; SPC(9); "3"; SPC(8); "4"; 

LOCATE 33. 29: PRINT CHRS(24); SPC(8); CHR$(24); SPC(9); CHRS(24); SPC(8); CHRS(24) 

LOCATE 38. 34: PRINT CHRS(27); "5"; SPC(17); CHRS(27); “6"; 

1 tank A side 

LINE (247, 197>-(298, 242), , B 'tank A 

LINE (223, 282 M254, 330), , B 'supply left 

LINE (295, 282)- (336, 330), , B 'supply right 

LINE (245, 209)-(246, 219), , B 'marker for 2000-3000 
LINE (245, 214)-(246, 214), 0 

• tank B side 

LINE (396, 197)- (447, 242), , B 'tank B 

LINE (374, 282)- (405, 330), , B 'supply left 

LINE (446, 282)-(487, 330), , B 'supply right 

LINE (448, 209) -(449, 219), , B 'marker for 2000-3000 
LINE (448, 214)-(449, 214), 0 
1 pumps 7 8 

IF irescolor * 11 THEN COLOR 3 
LINE (341, 205)-(353, 214), irescolor, B 'pump 7 

LINE (341, 220) -(353, 229), irescolor, B 'pump 8 

LINE (299, 210)-(340, 210) 'left of 7 

LINE (354, 210)-(395, 210) 'right of 7 

LINE (299, 225)- (340, 225) 'left of 8 

LINE (354, 225) -(395, 225) 'right of 8 

1 pumps 1-6 

LINE (232, 260)- (244, 269), irescolor, B 'pi 

LINE (305, 260)-(317, 269), irescolor, B 'p2 

LINE (383, 260)-(395, 269), irescolor, B 'p3 

LINE (456, 260) -(468, 269), irescolor, B 'p4 

LINE (268, 305)-(280, 314), irescolor, B *p5 

LINE (419, 305)-(431, 314), irescolor, B *p6 

LINE (238, 270)-(238, 281) 

LINE (238, 259)-(238, 238) 

LINE -(246, 238) 

LINE (311, 270)-(311, 281) 

LINE (311, 259)-(311, 238) 

LINE -(299, 238) 

LINE (389, 270) -(389, 281) 

LINE (389, 259)- (389, 238) 

LINE -(395, 238) 

LINE (462, 270)- (462, 281) 

LINE (462, 259)-(462, 238) 

LINE -(448, 238) 

LINE (255, 310)- (267, 310) 

LINE (281, 310)-(294, 310) 

LINE (406. 310)-(418, 310) 

LINE (432, 310)-(445, 310) 

END SUB 
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•SAVECOMH sub 

• J. R. Comstock, Jr. 

SUB savecomm (nactiv, freq) 

indcom * indcom + 1 'data array index 
IF indcom <= indcomax THEN GOTO storit3 

* if data array is full then write it and continue 

OPEN fildattt FOR APPEND AS #4 
FOR i * 1 TO indcomax 
PRINT #4, USING “#####.##“; tmcom(i); 

PRINT #4, USING 11 ##"; icomact(i); 

PRINT #4, USING « ####.##"; freqv(i) 

NEXT i 
CLOSE #4 
indcom = 1 

storit3: 

tmcom( indcom) * tnow 
icomact( indcom) = nactiv 
freqv( indcom) = freq 

END SUB 
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i 

•SAVEDATA sub 

1 J. R. Comstock, Jr. 

SUB savedata (istim, rtbegin, rtend) STATIC 

indrt = indrt ♦ 1 'data array index 
IF indrt <= indrt max THEN GOTO storit 

1 if array is full then write it and continue 

OPEN fildatlS FOR APPEND AS #1 
FOR i = 1 TO indrt max 
PRINT #1, USING "#####.##"; tmlog(i); 
PRINT #1, USING " ##"; ltyp(i); 

PRINT #1, USING H ####.##"; rt(i) 

NEXT i 
CLOSE #1 
indrt = 1 

storit: 

tmlog( indrt) = rtbegin 

Ityp(indrt) * istim 

rt( indrt) = rtend - rtbegin 

END SUB 
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1 SAVE FUEL sub 

1 J. R. Comstock, Jr. 

SUB savefuel (npump) 

indfuel * indfuel + 1 'data array index 
IF indfuel <= indfuel max THEN GOTO storit4 

1 if data array is full then write it and continue 

◦PEN f i ldat3$ FOR APPEND AS #3 
FOR i * 1 TO indfuel max 
PRINT #3, USING “#####.##"; tmfuel(i); 

PRINT #3, USING " ##*'; ndpump(i); 

PRINT #3, USING '• ####*•; lfa(i); 

PRINT #3, USING 11 ####•'; lfb(i); 

PRINT #3, USING •' ####“; lfc(i); 

PRINT #3, USING 11 ####'•; lfd(i) 

NEXT i 
CLOSE #3 
indfuel = 1 

storit4: 

tmfuel( indfuel) = tnow 
ndpump( indfuel) * npump 
Ifa(indfuel) = iqa 
l fb( indfuel) = iqb 
lfc( indfuel) * iqaff 
If d< indfuel) = iqbff 

END SUB 
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•SAVETRACK sub 

1 J. R. Comstock, Jr. 

SUB savetrack (trstart, ssqtr, xntr) STATIC 

ixtr * ixtr ♦ 1 'data array index 
IF ixtr <= ixtrmax THEM GOTO storinfo 

' if data array is full then write it and continue 

OPEN f i ldat2$ FOR APPEMO AS #2 
FOR i * 1 TO ixtrmax 
IF xntrv(i) > 0! THEN 
rms a SQR(ssqv(i) / xntrv(i)) 

ELSE 
rms = 01 
END IF 

PRINT #2, USING "#####.##”; tmtrv(i); 

PRINT #2, USING 11 ########.##"; ssqv(i); 

PRINT #2, USING ■ ####«; xntrv(i); 

PRINT #2, USING '• ####.##»; rms 
NEXT i 
CLOSE #2 
ixtr = 1 

storinfo: 

tmtrv(ixtr) = trstart 
ssqv(ixtr) = ssqtr 
xntrv(ixtr) = xntr 

END SUB 
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• S C H E D U L C OH sub 

1 J. R. Comstock, Jr. 

SUB schedulcom (i) STATIC 

IF i =99 THEM 1start2 * 1 1 setup 

LINE (608, 27)-(610, 155), 0, BF 'erase wide line 

LINE <613, 27)-(615, 155), 0, BF 

comloopl: 

IF istart2 ♦ 1 > maxmcom THEN EXIT SUB 
indsched = istart2 

comloop2: 

i = mcomtskC indsched): tl = etime(i) - tnow 
i * mcomtskC indsched ♦ 1): t2 « etime(i) - tnow 

IF t2 <= 0* THEN istart2 = istart2 ♦ 2: GOTO comloopl 
IF tl >* 4801 THEN EXIT SUB 
l beg * 27 + INT(t1 / 3.75) 

IF l beg < 27 THEN Ibeg * 27 
lend = 27 + INT(t2 / 3.75) 

IF lend > 155 THEN lend = 155 

LINE (608, lbeg)-(615, lend), 14, BF 'fill man 
indsched = indsched + 2 
IF indsched + 1 > maxmcom THEN EXIT SUB 
GOTO comloop2 

END SUB 
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1 SCHEDULTRK sub 

1 J. R. Comstock, Jr. 

SUB schedultrk (i) STATIC 

IF i = 99 THEN istartl = 1 'setup 

LINE (583, 27>-(585, 155), 0, BF 'erase wide line 

LINE (588, 27)-(590, 155), 0, BF 

manloopl : 

IF istartl + 1 > maxmauto THEN EXIT SUB 
indsched = istartl 

manloop2: 

i = mauto( indsched): tl = etime(i) - tnow 
i = mauto( indsched ♦ 1): t2 = etime(i) - tnow 

IF t2 <= 0! THEN istartl = istartl ♦ 2: GOTO manloopl 
IF tl >= 4801 THEN EXIT SUB 
Ibeg = 27 ♦ INT(t1 / 3.75) 

IF Ibeg < 27 THEN Ibeg * 27 
lend = 27 ♦ INT(t2 / 3.75) 

IF lend > 155 THEN lend = 155 

LINE (583, lbeg)-(590, lend), 14, BF 'fill man 
indsched = indsched ♦ 2 
IF indsched + 1 > maxmauto THEN EXIT SUB 
GOTO manloop2 

END SUB 


B 


37 



MATV40J Program Listing 


•SCRIPTCOOE sub 

1 J. R. Comstock, Jr. 

SUB scriptcode (l event) STATIC 

IF Icomtask * 0 THEM 'skip com events (recode) If task OFF 
IF levent » 57 THEM levent = 59: savecomm l event, 01 
IF levent = 58 THEN levent = 60: savecomm levent, 0! 

END IF 

CALL rsout(levent) 'send event code to RS-232 port 
SELECT CASE levent 'script code actions 

CASE 10 'ratings 
ratings 

CALL rsout<250) 

CASE 11, 12 'scale 1 
IF Imontask « 1 THEN 
IF Itogml * 0 THEN 

IF levent =11 THEN moncode = 5 ELSE moncode = 9 
rtmonl = tnow 
Itogml = 1 
END IF 
END IF 

CASE 21, 22 'scale 2 
IF Imontask = 1 THEN 
IF ltogm2 * 0 THEN 

IF levent = 21 THEN moocode = 6 ELSE moncode = 10 
rtmon2 = tnow 
ltogm2 * 1 
END IF 
END IF 

CASE 31, 32 'scale 3 
IF Imontask * 1 THEN 
IF ItogmS ■ 0 THEN 

IF levent * 31 THEN moncode * 7 ELSE moncode =11 
rtmon3 = tnow 
ltogm3 = 1 
END IF 
END IF 

CASE 41, 42 'scale 4 
IF Imontask = 1 THEN 
IF ltogm4 = 0 THEN 

IF levent = 41 THEN moncode = 8 ELSE moncode = 12 
rtmon4 = tnow 
ltogm4 = 1 
END IF 
END IF 

CASE 51 'green off 
IF lighttask = 1 THEN 
IF Itoggrn = 0 THEN 
warnlights 1 
rtgrn * tnow 
Itoggrn > 1 
END IF 
END IF 

CASE 57 *NGT 504 voice msg 

IF Icomtask = 1 THEN savecomm 57, 01 

CASE 58 'other callsign msg 

IF Icomtask = 1 THEN savecomm 58, 01 

CASE 61 'red on 

IF lighttask = 1 THEN 
IF Itogred = 0 THEN 
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warnlights 4 
rtred * tnow 
l tog red * 1 
END IF 
END IF 

CASE 71 1 manual 
itrcode = 1 
mantrksel * 0 
msgleft * 1: msgrt * 1 
automessage msgleft, msgrt 

CASE 72 'auto 
itrcode * 2 
mantrksel * 1 
msgleft * Is msgrt = 2 
automessage msgleft, msgrt 

CASE 73 'auto going off message 
mantrksel * 1 
msgleft * 3 

automessage msgleft, msgrt 

CASE 74 'low trk difficulty 
1 trkxinc = .02: trkyinc = .015 
trkxinc = .01: trkyinc = .0075 
savetrack tnow, trkxinc, 0! 

CASE 75 »med trk difficulty 
trkxinc = .03: trkyinc = .0225 
savetrack tnow, trkxinc, 0! 

CASE 76 'hi trk difficulty 
trkxinc * -04: trkyinc = .03 
savetrack tnow, trkxinc, 0! 

CASE 78 'AUTO Res Mgmt 
Iresdisp = 0 
resourceauto 2 

CASE 79 'MANUAL Res Mgmt 
Iresdisp = 1 
resource 0, 1 
savefuel 79 

CASE 81 TO 98 

IF Ipumpfai l * 1 THEN 
resource 1, l event 
ELSE IF l event > 90 THEN 
resource 1, l event 
END IF 

CASE 99 'end of script, terminate run 
progexit 3 

CASE 101 TO 106 

levtask * levent - 100 

CASE ELSE 
END SELECT 
END SUB 
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1 SCRNGETS sub 

' J. R. Comstock, Jr. 

SUB scrngets 

COLOR 3 

PRINT "SYSTEM MONITORING" 

PRINT "TRACKING" 

PRINT "SCHEDULING" 

PRINT "COMMUNICATIONS" 

PRINT "RESOURCE MANAGEMENT" 

COLOR 10: PRINT "AUTO END" 

COLOR 3: PRINT "PUMP STATUS" 

GET (0, 0)-(136, 7), labl 
GET (0, 8)-(64, 15), lab2 
GET (0, 16)- (80, 23), Iab3 
GET (0. 24) - < 1 12, 31), lab4 
GET (0 , 32) 052, 39), lab5 
GET (0, 40)-(64. 47), lab6 
GET (0, 48)-(88, 55), lab7 
CLS 

■monitoring wedge 
FOR ix * 1 TO 6 

LINE (ix, ix)-(ix, 13 - ix), 14 
NEXT ix 

GET (1, 1)-(7, 15), Iwedg 
CLS 


■mouse cursor 

LINE (1, 1>-0, 10), 15 
LINE (2, 2)-(2, 9), 15 
LINE (3, 3)-(3, 8), 15 
LINE (4. 4>-(4, 7), 15 
LINE (5, 5)-(5, 7), 15 
LINE (6, 6)-(6, 7), 15 
LINE (7, 7)-(7, 7), 15 
GET (1, 1 ) - (7, 11), mcursor 
CLS 

■tracking target 

CIRCLE (20, 20), 12, 10 
LINE (20, 20)-(20, 20), 10 
LINE (20, 10>- (20, 15), 10 
LINE (0, 20)-(8, 20), 10 
LINE (20, 25)-(20, 30), 10 
LINE (32, 20)-(40, 20), 10 
GET (0, 10)-(40, 30), jetl 
CLS 

' ratings arrows 
FOR iy = 0 TO 11 

LINE (14 - iy, iy)- ( 14 + iy, iy), 14 
NEXT iy 

GET (2, 0)-(26, 11), Iratel 
CLS 

FOR iy * 0 TO 8 

LINE (12 - iy, iy)-(12 ♦ iy, iy), 7 
NEXT iy 

GET (3, 0)-(21, 8), lrate2 
CLS 


END SUB 
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• s c r n s t o f f sub 

1 J. R. Comstock, Jr. 

SUB scrnstuff 

• Static Screen Info 

LIME (1, 0)-(638, 10), 3, BF 
LIME (1, 170)-(638, 180), 3, BF 
LINE (0, 0)-(639, maxyscr). 15, B 
LIME (520, 11)-<520, 169), 15 
LINE (520, 181)-(520, maxyscr), 15 
LINE (520, 1)-(520, 10), 0 
LINE (520, 170)-(520, 180), 0 
LINE (200, 11)-(200, maxyscr), 15 
LINE (200, 1)-(200, 10). 0 
LINE (200, 170)-(200, 180), 0 
LINE (1, 157)-(199, 157), 3 
PUT (40, 2), labl 
PUT (320, 2), lab2 
PUT (540, 2), lab3 
PUT (40, 172), lab4 
PUT (270, 172), lab5 
PUT (535, 172), lab7 

■scheduling window grid 

COLOR 11 
FOR i = 0 TO 8 

LOCATE (i • 2) + 4, 69: PRINT USING «**"; i; 
NEXT i 

FOR i * 1 TO 17 
LOCATE i ♦ 3, 72: PRINT 
NEXT i 

LOCATE 21, 74: PRINT “T C"; 

LINE (574, 27)- (574, 155) 

LINE (586. 27)-(587, 155). 14, B 

LINE (611. 27)-(612, 155), 14. B 

END SUB 
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•TRACKGRID sub 

1 J. R. Comstock, Jr. 

SUB trackgrld (igridcol) STATIC 

LINE <353, 90)* (367, 90), igridcol 
LINE (360, 85)-<360, 95), igridcol 
FOR ix « 240 TO 480 STEP 40 
LINE (ix - 3, 90)-(ix + 3, 90), igridcol 
LINE (ix, 88)-(ix, 92), igridcol 
NEXT ix 

FOR iy * 36 TO 144 STEP 18 
LINE (360, iy - 2)-(360, iy + 2), igridcol 
LINE (357, iy)-(363, iy), igridcol 
NEXT iy 

LINE (320, 72)-(323, 72), igridcol 
LINE (320, 72)-<320, 74), igridcol 
LINE (320, 108) -(323, 108), igridcol 
LINE (320, 108)- <320, 106), igridcol 
LINE (400, 72)-(397, 72), igridcol 
LINE (400, 72)-<400, 74), igridcol 
LINE (400, 108) -<397, 108), igridcol 
LINE (400, 108)- (400, 106), igridcol 

END SUB 
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■TRACKING sub 

1 J. R. Comstock, Jr. 

SUB tracking (jetcode) STATIC 

SELECT CASE jetcode 

CASE 1 'MANUAL TRACKING 

xsin = xsin + trkxinc 
IF xsin > pi2 THEN xsin = 0 
jetxoff = SIN(xsin) • xgain 

ysin = ysin + trkyinc 
IF ysin > pi2 THEN ysin = 0 
jetyoff = SINCysin) * ygain 

jetx = initx - (jetxoff) 
jety - inity - (jetyoff) 

CALL qjoy(joyx, joyy) 

' LOCATE 39, 4: PRINT joyx; joyy; itrksens; 

moffx = moffx + (joyxinit - joyx) \ itrksens 
moffy = moffy + (joyyinit - joyy) \ itrksens 

jetx * jetx - moffx 
jety = jety - moffy 

IF jetx > 479 THEN jetx = 479: moffx = -139 - jetxoff 

IF jetx < 201 THEN jetx = 201: moffx * 139 - jetxoff 

IF jety > 138 THEN jety = 138: moffy * -58 - jetyoff 

IF jety <11 THEN jety = 11: moffy = 69 - jetyoff 

IF jetx <> jetxb OR jety <> jetyb THEN 
PUT (jetxb, jetyb), jetl: PUT (jetx, jety), jetl 
jetxb « jetx: jetyb » jety 
END IF 

1 LINE (jetx + 20, jety + 10)-(jetx + 21, jety + 10), 14 'leaves trail 

1 save data at selected interval 

IF tnow - trstart >= trkincsav THEN 
savetrack trstart, ssqtr, xntr 
trstart = tnow: ssqtr = 0! : xntr = 0! 

END IF 

xdev = jetx - initx 

ydev = (inity - jety) • 1.3714 

xntr = xntr + II 

ssqtr = ssqtr + (xdev * xdev + ydev * ydev) 

•LOCATE 3, 48: PRINT USING "####.##"; xdev; ydev; 'show x & y 

CASE 2 ' AUTO TRACKI NG 

loffset » 0 

' return track target to center 

IF jetx > 343 THEN jetx = jetx - 3: loffset = 1 
IF jetx < 337 THEN jetx = jetx + 3: loffset = 1 
IF jety > 83 THEN jety = jety - 2: loffset = 1 
IF jety < 77 THEN jety = jety + 2: loffset * 1 

1 provide small random offsets when on auto 

IF loffset * 0 THEN 
IF i switch * 1 THEN 
i switch a 0 

PUT (jetx, jety), jetl 
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trackgrid 8 

PUT (jetx, jety) f jetl 
END IF 

mantrksel * 1 
IF RND < .3 THEN 
jetx * 339 + I NT < RND * 3!) 
jety * 79 + I NT (RND • 3!) 

END IF 
ELSE 

mantrksel * 0 
END IF 

' if new position, then put up target 

IF jetx <> jetxb OR jety <> jetyb THEN 
PUT (jetxb, jetyb), jetl: PUT (jetx, jety), jetl 
jetxb * jetx: jetyb * jety 
END IF 

CASE 3 ‘switch to manual 


moffx * 0: moffy = 0: xsin ~ 0! : ysin = 0! 

ssqtr = 01: xntr = 0! 

trstart = tnow 

PUT (jetx, jety), jetl 

trackgrid 14 

PUT (jetx, jety), jetl 

CASE 4 'switch to auto 

IF xntr > 0! THEN savetrack trstart, ssqtr, xntr: xntr = 01 
savetrack tnow, 01, 01 
i switch “ 1 

CASE 99 'setup 

jetxb = initx: jetyb = inity 

jetx * initx: jety = inity 

PUT (jetxb, jetyb), jetl 

xsin = 01 : ysin = 0! 

moffx * 0: moffy = 0 

i switch = 0: xgain = 1101: ygain □ 45! 

CASE ELSE 
END SELECT 
END SUB 
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'UARNLIGHTS sub 

1 j. R. Comstock, Jr. 

SUB warnlights (l code) 

'PUT (mx, my), mcursor 
SELECT CASE l code 

CASE 1 'green off 

LINE (29, 26)- (71, 40), 0, BF 

CASE 2 'green on 

LINE (29, 26)- (71, 40), 2, BF 

CASE 3 'red off 

LINE (119, 26)- (161, 40), 0, BF 
CASE 4 'red on 

LINE (119, 26)-(161, 40), 12, BF 

CASE ELSE 
END SELECT 

'PUT (mx, my), mcursor 
END SUB 
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■Comstock HATREHX (Ver. 1.2) remote display, task control & speech generation 

• 03-25-91 J. R. Comstock, Jr. NASA LaRC: (804) 864-6643, FTS 928-6643 

I 

1 Connects with task computer via C0H1 serial port link. 

1 Hardware requirements: Any PC or Compatible that will work 

1 with the Heath Voice Card (Model HV-2000). It has been tested 

• on a Heathkit 158 and a Leading Edge Model D. 

1 Even the slowest of PCs should work fine with this program. 

1 The Voice Card we used is available through the Heath Company, 

1 Benton Harbor, Michigan 49022. May be modified for use with 
1 other synthesizers or digitizers. 

■ 

1 Developed using Microsoft QuickBasic 4.5. Requires invoking 
1 QuickBasic with command line QB /L SJ, in order to use the SJ.QLB 
1 and compile time SJ.LIB libraries. SJ.QLB and SJ.LIB are created 
1 from SERIAL. OBJ and QJOY.OBJ. 

■ 

DEFINT I-N 

DECLARE SUB talk (icond) 

DIM SHARED mlaS(IOO), mlbt(IOO), mlct(IOO) 

DIM SHARED M2at(100), m2bt(100), m2c$(100) 

COMMON SHARED lerrsect 
ON ERROR GOTO errorhandler 

start: 

iscrrow = 3: ikeyrow = 3: Irestart = 0: Inewstart = 0: clktics = 0! 
totlpause * 01 
COLOR 15, 1: CLS 

' setup port and close it 

OPEN "C0M1 : 19200, N, 8, 1* FOR RANDOM AS #5 LEN = 256 
CLOSE #5 


PRINT : PRINT SPC(15); "MAT remote display and speech generation (Ver 1.2)" 
PRINT STRINGS(80, 196); 

COLOR 7. 1 

talk 99 'set up voice synthesizer messages and open device 

1 wait til 255 to start time 

VIEW PRINT 4 TO 25 'set up lines 4-24 to scroll 

PRINT " Waiting for start signal from task computer... (ESC to Quit)": PRINT 

wait255: 
at « INKEYS 

IF at * CHR$(27) THEN talk 100: VIEW PRINT: COLOR 7, 0: CLS : END 

IF at - CHR$(98) OR at - CHRt(66) THEN PRINT » User started": GOTO begin 

CALL rsin(ircv) 

IF ircv * 255 THEN PRINT " Start signal rcvd": GOTO begin 
GOTO wait255 

begin: 

PRINT 

SOUND 1000, 1 
clktics * TIMER 
TIMES 3 "00:00:00" 

■REALTIME RCVLOOP 

rcvloop: 

CALL rsin(ircv) 'get char from RS-232 port 
at - INKEYt 

IF at - "" THEN GOTO update 
keyasc 3 ASC(at) 

IF keyasc 3 0 THEN 
keyfunct 3 ASC(RIGHTS(aS, 1)) 

CALL rsout(keyfunct ♦ 100) 
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ELSE 

keyfunct = 0 
CALL rsout(keyasc) 

END IF 

IF a$ s CHRS(27) THEN GOTO progexit 

IF aS * "a" OR a$ 5 "A" THEN ircv = 57 'sim com event by 1 key 
IF aS = M b" OR a$ = "B" THEN ircv = 58 'sim com event by 2 key 

update: 

IF ircv < 0 THEN GOTO rcvloop 'if no char loop back 
1 display script item 

PRINT SPC(2); TIMES; : PRINT USING M Scr####"; ircv; 

SELECT CASE ircv 
CASE 10 

ticpause * TIMER 
t pause$ * TIMES 
PRINT " Begin Ratings"; 

CASE 250 

ticpause * TIMER - ticpause 
TIMES * t pauseS 

tot l pause * tot l pause + ticpause 
PRINT " Ratings ticpause; " sec"; 

CASE 57 
talk 57 

CASE 58 
talk 58 

CASE 99, 254 

Inewstart * Is GOTO progexit 

CASE ELSE 
END SELECT 
PRINT 

GOTO rcvloop 

'PROGRAM EXIT 

progexit: 

IF Inewstart = 1 THEN GOTO fixclock 
PRINT 

PRINT » SELECT: RETURN - New Start, C - Continue, ESC - Exit" 

DO 

rS * INKEYS 

IF rS = »C" OR rS = "c» THEN PRINT « Continuing": GOTO rcvloop 
IF rS = CHRS(13) THEN Irestart = 1: EXIT DO 
IF rS = CHRS<27) THEN Irestart = 0: EXIT DO 
LOOP 

fixclock: 

VIEW PRINT 

talk 100 'close voice device 
COLOR 7, 0: CLS 

PRINT : PRINT "Task run time: "; TIMES 

clktics = clktics + TIMER ♦ totlpause 

zhrs » INT(clktics / 3600!) 

zmin = INT((clktics - zhrs • 3600!) / 60!) 

zsec * INT(clktics - (zhrs * 3600! + zmin • 601)) 

IF zhrs > 23 THEN zhrs * zhrs - 24 

zlS = RIGHTS(STRS(zhrs), 2): IF LEFTS(z1S f 1) * » « THEN zlS * "0" 

z2S * RIGHTS(STRS(zmin), 2): IF LEFTS(z2S, 1) » » « THEN z2S = "0" 

z3S a R I GHTS( STRS( zsec ) , 2): IF LEFTS(z3S, 1) = » » THEN z3S * "0" 

clksetS = zlS ♦ ♦ z2S + + z3S 


C - 

c- 


RIGHTSCzlS, 1) 
RIGHTS(z2S, 1) 
RIGHTS(z3S, 1) 
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TIME* => clkaet* 

PRINT : PRINT "Tf«e set to; «; TIME* 

IF Inewstart « 1 OR l restart * 1 THEN GOTO start 
END 

•ERRORHANDLER 

errorhandler: 
lerrnum = ERR 
COLOR 7, 0: CLS 

PRINT "Multi -Attribute Task Remote Terminal Program": PRINT 
PRINT "ERROR NUMBER: "; lerrnum: PRINT 

IF lerrnum = 24 THEN 
PRINT "Problem with RS-232 line" 

END IF 

IF lerrnun = 53 AND lerrsect = 1 THEN 
CLOSE #1 

PRINT "*** ERROR IN READING REQUIRED FILE: MSG57.VOI" 

END IF 

IF lerrnum = 53 AND lerrsect = 2 THEN 
CLOSE #2 

PRINT "*** ERROR IN READING REQUIRED FILE: MSG58.VOI" 

END IF 

PRINT : PRINT "EXITING Program": PRINT 
END 


C 
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•TALK SUB 

• J. R. Comstock, Jr. 

SUB talk (icond) STATIC 

SELECT CASE icond 

CASE 99 'setup voice messages 
msgl = 0: msg2 = 0 
lerrsect m 1 

OPEN "I", #1, M MSG57.VOI" 
i = 0 

DO UNTIL EOF(1 ) 
i * i ♦ 1 

LINE INPUT #1, m1a$(i) 

LINE INPUT #1, m1b*(i) 

LINE INPUT #1, mlcS(i) 

LOOP 

msglmax * i 

CLOSE # 1 
lerrsect = 2 

OPEN "I", #2, "MSG58.VOI" 
i = 0 

DO UNTIL EOF(2) 
i = i ♦ 1 

LINE INPUT #2, M2aS(i) 

LINE INPUT #2, m2b$(i) 

LINE INPUT #2, m2cS(i) 

LOOP 

msg2max * i 
CLOSE #2 

OPEN "0", 3, "HV» 

CASE 100 • close device 

CLOSE #3 

CASE 57 

msgl s msgl + 1: IF msgl > msglmax THEN msgl = 1 
PRINT USING " Own ###"; msgl; 

PRINT #3, mlaS(msgl) 

PRINT #3, mlbS(msgl) 

PRINT #3, mlcS(msgl) 

CASE 58 

msg2 = msg2 + 1 : IF msg2 > msg2max THEN msg2 = 1 
PRINT USING “ Other###"; msg2; 

PRINT #3, M2a$(msg2) 

PRINT #3, m2b$(msg2) 

PRINT #3, m2c$(msg2) 

CASE ELSE 
END SELECT 
END SUB 
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Voice Messages for MAT Battery Communications Task 

Own Callsign Messages (MSG57.VOI) In presentation order: 

NGT504, NGT504 Set First Navigation 109.7 
NGT504, NGT504 Set First Radio 121.3 
NGT504, NGT504 Set Second Navigation 111.5 
NGT504, NGT504 Set Second Radio 119.9 
NGT504, NGT504 Set Second Navigation 112.3 
NGT504, NGT504 Set First Navigation 110.5 
NGT504, NGT504 Set First Radio 121.9 
NGT504, NGT504 Set Second Radio 121.3 
NGT504, NGT504 Set First Navigation 109.7 
NGT504, NGT504 Set Second Radio 121.9 
NGT504, NGT504 Set Second Navigation 113.1 
NGT504, NGT504 Set First Radio 121.1 
NGT504, NGT504 Set First Navigation 110.7 
NGT504, NGT504 Set Second Navigation 112.3 
NGT504, NGT504 Set First Navigation 110.1 
NGT504, NGT504 Set First Radio 121.7 
NGT504, NGT504 Set Second Radio 120.7 
NGT504, NGT504 Set Second Radio 120.1 
NGT504, NGT504 Set Second Navigation 111.9 
NGT504, NGT504 Set First Radio 120.9 


Other Callsign Messages (MSG58.V0I) In presentation order: 

NLS217, NLS217 Set First Radio 121.3 
NRK362, NRK362 Set Second Radio 123.3 
NAL478, NAL478 Set Second Navigation 117.7 
NAL478, NAL478 Set Second Radio 118.3 
NDL183, NDL183 Set Second Navigation 117.3 
NLS217, NLS217 Set First Radio 126.1 
NRK362, NRK362 Set First Navigation 113.9 
NLS217, NLS217 Set First Radio 125.5 
NRK362, NRK362 Set Second Navigation 113.5 
NLS217, NLS217 Set Second Radio 119.1 
NAL478, NAL478 Set Second Navigation 115.3 
NAL478, NAL478 Set First Navigation 109.7 
N0L183, NDL183 Set First Navigation 113.1 
NLS217, NLS217 Set First Radio 124.9 
NRK362, NRK362 Set Second Radio 121.3 
NDL183, NDL183 Set First Navigation 115.7 
NRK362, NRK362 Set Second Navigation 115.5 
NAL478, NAL478 Set First Navigation 112.1 
N0L183, NDL183 Set First Radio 127.7 
NDL183, NDL183 Set Second Radio 120.1 


D 
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Voice Message Listing 


MSG57.VOI voice script file 

=<N I ; 8A 2pa 20 AR 881) n {751) gee {2pa 661) t <2pa 731) 5 {67D 0 {651) 4 
{5pa 701) n {641) gee (2pa 831) t {2pa 501) 5 {581) 0 {62D 4 

{I 721 3pe) set {801 3pa) first {621) navigation {661 12pa) 1 0 9 {581 2pa) point {701 3pa) 7 

*{M l ; 8A 2pa 20 AR 881) n (751) gee {2pa 661) t {2pa 731) 5 {67D 0 {651) 4 

{5pa 701) n (641) gee {2pa 831) t {2pa SOI) 5 {581) 0 {621) 4 

{! 721 3pa) set {801 3pa) first {621) radio {661 12pa) 1 2 1 {581 2pa) point {701 3pa) 3 
={M ! ; 8A 2pa 20 AR 881) n {751) gee {2pa 661) t {2pa 731) 5 {67D 0 {651) 4 
{5pa 701) n {641) gee {2pa 831) t {2pa 501) 5 {58D 0 {62D 4 

{! 721 3pa) set {801 3pa) second {62D navigation {661 12pa) 1 1 1 {581 2pa) point {701 3pa) 5 
={N I ; 8A 2pa 20 AR 881) n {75D gee {2pa 661) t {2pa 731) 5 {67D 0 {650 4 
{5pa 700 n {640 gee {2pa 830 t {2pa 500 5 {580 0 {620 4 

{I 721 3pa) set {801 3pa) second {620 radio {661 12pa) 1 1 9 (581 2pa) point {701 3pa) 9 

=(H I ; 8A 2pa 20 AR 880 n (750 gee {2pa 660 t {2pa 730 5 {670 0 {650 4 

(5pa 700 n (640 gee (2pa 830 t {2pa 500 5 {580 0 (620 4 

{I 721 3pa) set {801 3pa) second {620 navigation (661 12pa) 1 1 2 {581 2pa) point {701 3pa) 3 
={N I ; 8A 2pa 20 AR 880 n (750 gee (2pa 660 t {2pa 730 5 {670 0 (650 4 
(Spa 700 n (640 gee (2pa 831) t {2pa 500 5 (580 0 {620 4 

{I 721 3pa) set {801 3pa) first (620 navigation {661 12pa) 1 1 0 (581 2pa) point {701 3pa) 5 

={M I ; 8A 2pa 20 AR 880 n (750 gee (2pa 660 t (2pa 730 5 (671) 0 (651) 4 

(Spa 700 n (641) gee {2pa 830 t (2pa 500 5 (580 0 {620 4 

{I 721 3pa) set {801 3pa) first (620 radio {661 12pa) 1 2 1 (581 2pa) point {701 3pa) 9 
={H I ; 8A 2pa 20 AR 880 n {750 gee {2pa 660 t {2pa 730 5 (670 0 {650 4 
(Spa 700 n {640 gee {2pa 830 t {2pa 500 5 {580 0 {620 4 

(I 721 3pa) set (801 3pa) second {620 radio {661 12pa) 1 2 1 {581 2pa) point (701 3pa) 3 

={M I ; 8A 2pa 20 AR 880 n (750 gee {2pa 660 t {2pa 730 5 {670 0 {650 4 

(Spa 700 n (640 gee (2pa 831) t (2pa 500 5 (580 0 {620 4 

{I 721 3pa) set (801 3pa) first {620 navigation {661 12pa) 1 0 9 (581 2pa) point {701 3pa) 7 

={H I ; 8A 2pa 20 AR 880 n (750 gee (2pa 661) t (2pa 731) 5 {670 0 {650 4 

(5pa 700 n (640 gee (2pa 830 t {2pa 500 5 {580 0 {620 4 

(I 721 3pa) set (801 3pa) second (620 radio (661 12pa) 1 2 1 {581 2pa) point {701 3pa) 9 

={H 1 ; 8A 2pa 20 AR 880 n {750 gee (2pa 660 t {2pa 730 5 {670 0 {650 4 

(5pa 700 n (641) gee (2pa 830 t (2pa 500 5 (580 0 (620 4 

(I 721 3pa) set (801 3pa) second {620 navigation {661 12pa) 1 1 3 {581 2pa) point {701 3pa) 1 

={M I ; 8A 2pa 20 AR 880 n {750 gee {2pa 660 t {2pa 730 5 {670 0 {650 4 

(Spa 701) n (641) gee (2pa 830 t (2pa 500 5 (581) 0 {620 4 

(1 721 3pa) set {801 3pa) first (620 radio (661 12pa) 1 2 1 (581 2pa) point {701 3pa) 1 

={M I ; 8A 2pa 20 AR 880 n (750 gee (2pa 660 t {2pa 730 5 (671) 0 {650 4 

(5pa 700 n {641} gee (2pa 830 t (2pa 500 5 {580 0 {621} 4 

{I 721 3pa) set (801 3pa) first (620 navigation {661 12pa) 110 {581 2pa) point {701 3pa) 7 

={H I ; 8A 2pa 20 AR 880 n {750 gee (2pa 660 t {2pa 731) 5 {670 0 (651) 4 

(Spa 700 n {641} gee (2pa 831} t (2pa 500 5 (580 0 {621} 4 

(I 721 3pa) set (801 3pa) second (620 navigation {661 12pa) 1 1 2 {581 2pa) point {701 3pa) 3 

={M ! ; 8A 2pa 20 AR 880 n {750 gee {2pa 660 t {2pa 730 5 {670 0 {650 4 

(5pa 700 n {641} gee {2pa 830 t {2pa 500 5 {581} 0 (620 4 

(I 721 3pa) set {801 3pa) first (620 navigation (661 12pa) 110 {581 2pa) point {701 3pa) 1 

=(H I ; 8A 2pa 20 AR 880 n {750 gee (2pa 660 t (2pa 730 5 {670 0 (650 4 

(5pa 700 n (641) gee (2pa 830 t {2pa 500 5 {580 0 {620 4 

(t 721 3pa) set (801 3pa) first {620 radio {661 12pa) 12 1 {581 2pa) point (701 3pa) 7 

={M I ; 8A 2pa 20 AR 880 n (751) gee {2pa 660 t (2pa 730 5 {671} 0 {650 4 

(5pa 700 n (641) gee (2pa 830 t {2pa 500 5 (580 0 {620 4 

(I 721 3pa) set (801 3pa) second (620 radio (661 12pa) 1 2 0 (581 2pa) point (701 3pa) 7 

S (M I ; 8A 2pa 20 AR 880 n {750 gee {2pa 660 t {2pa 730 5 (670 0 (650 4 

(Spa 701) n (641) gee (2pa 830 t (2pa 500 5 (580 0 (620 4 

(I 721 3 pa) set (801 3pa) second (620 radio (661 12pa) 1 2 0 (581 2pa) point (701 3 pa) 1 

*(N I ; 8A 2pa 20 AR 880 n (751) gee (2pa 660 t (2pa 730 5 {670 0 (650 4 

(5pa 700 n (641) gee {2pa 830 t {2pa 500 5 {580 0 {620 4 

(I 721 3pa) set (801 3pa) second (620 navigation {661 12pa) 1 1 1 (581 2pa) point (701 3pa) 9 

•CM I ; 8A 2pa 20 AR 880 n (750 gee (2pa 660 t (2pa 730 5 (670 0 (650 4 

(5pa 700 n (641) gee (2pa 830 t (2pa 500 5 (580 0 {620 4 

(I 721 3pa) set (801 3pa) first (620 radio {661 12pa) 1 2 0 (581 2pa) point {701 3pa) 9 
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Voice Message Listing 


HSG58.V0I voice script file 

={M I ; 8A 2pa 20 AR 881) n {751 2pa) l {2pe 661) s {2pa 731) 2 {671) 1 {651) 7 
{Spa 701) n {641 2pa) l {2pa 831) s {2pa 501) 2 {581) 1 {621} 7 

{I 721 3pa) set {801 3pa) first {62D radio {661 12pa) 1 2 1 {581 2pa) point {701 3pa) 3 

={M 1 ; 8A 2pa 20 AR 881) n {751 2pa) r {2pa 661) k {2pa 731) 3 {671) 6 {65D 2 

{5pa 701) n {641 2pa) r {2pa 831) k {2pa 501) 3 {581) 6 {621) 2 

{I 721 3pa) set {801 3pa) second {621) radio {661 12pa) 1 2 3 {581 2pa) point {701 3pa) 3 

={H I ; 8A 2pa 20 AR 881) n {751 2pa) a {2pa 661) l {2pa 731) 4 {671) 7 {651) 8 

{5pa 701) n {641 2pa) a {2pa 831) l {2pa 501) 4 {58D 7 {62D 8 

{I 721 3pa) set {801 3pa) second {62D navigation {661 12pa) 1 1 7 {581 2pa) point {701 3pa) 7 

={M I ; 8A 2pa 20 AR 881) n {751 2pa) a {2pa 661) l {2pa 731) 4 {671) 7 {651) 8 

{5pa 701) n {641 2pa) a {2pa 831) l {2pa 501) 4 {58D 7 {62D 8 

{I 721 3pa) set {801 3pa) second {621} radio {661 12pa) 1 1 8 {581 2pa) point {701 3pa) 3 

*(H ! ; 8A 2pa 20 AR 881) n {751 2pa) d {2pa 661) l {2pa 731} 1 {671) 8 {65D 3 

{5pa 701} n (641 2pa) d (2pa 831} l {2pa 501} 1 {581} 8 (621) 3 

{I 721 3pa) set (801 3pa) second {621} navigation {661 12pa) 1 1 7 {581 2pa) point {701 3pa) 3 

={M | ; 8A 2pa 20 AR 881) n {751 2pa) l (2pa 661} s (2pa 731} 2 {671} 1 {651} 7 

(5pa 701} n (641 2pa) l (2pa 831} s {2pa 501} 2 (581) 1 (621) 7 

{I 721 3pa) set {801 3pa) first {621} radio (661 12pa) 1 2 6 {581 2pa) point {701 3pa) 1 

={H I ; 8A 2pa 20 AR 881} n {751 2pa) r {2pa 661} k (2pa 731) 3 {671} 6 {651} 2 

{5pa 701) n (641 2pa) r {2pa 831) k {2pa 501) 3 {58D 6 {62D 2 

{I 721 3pa) set (801 3pa) first (621) navigation {661 12pa) 1 1 3 (581 2pa) point {701 3pa) 9 

={M I ; 8A 2pa 20 AR 881) n {751 2pa) l (2pa 661} s (2pa 731} 2 {671} 1 (651) 7 

(5pa 701) n (641 2pa) l (2pa 831) s {2pa 501) 2 {581} 1 (621) 7 

{I 721 3pa) set {801 3pa) first {621} radio (661 12pa) 1 2 5 (581 2pa) point {701 3pa) 5 

={H I ; 8A 2pa 20 AR 881) n {751 2pa) r {2pa 661) k (2pa 731) 3 {671} 6 {651} 2 

(5pa 701} n {641 2pa) r {2pa 831} k {2pa 501) 3 {581} 6 {621} 2 

O 721 3pa) set (801 3pa) second {621} navigation (661 12pa) 1 1 3 {581 2pa) point (701 3pa) 5 

S (M I ; 8A 2pa 20 AR 881) n {751 2pa) l (2pa 661) s (2pa 731) 2 {671} 1 (651) 7 

{Spa 701) n (641 2pa) l (2pa 831} s (2pa 501} 2 (581) 1 (621) 7 

(I 721 3pa) set (801 3pa) second {621} radio (661 12pa) 1 1 9 (581 2pa) point {701 3pa) 1 

={M I ; 8A 2pa 20 AR 881} n {751 2pa) a {2pa 661} l {2pa 731} 4 {671} 7 {651} 8 

{Spa 701} n {641 2pa) a (2pa 831} l (2pa 501) 4 (581) 7 (621) 8 

(I 721 3pa) set (801 3pa) second (621) navigation (661 12pa) 1 1 5 {581 2pa) point (701 3pa) 3 

=(M I ; 8A 2pa 20 AR 881} n (751 2pa) a (2pa 661} t {2pa 731} 4 {671} 7 {651} 8 

(5pa 701) n (641 2pa) a (2pa 831} l (2pa 501) 4 (581) 7 (621) 8 

(! 721 3pa) set {801 3pa) first (621) navigation (661 12pa) 1 0 9 (581 2pa) point {701 3pa) 7 

={N ! ; 8A 2pa 20 AR 881} n (751 2pa) d (2pa 661} l {2pa 731} 1 (671) 8 {651} 3 

(5pa 701) n {641 2pa) d (2pa 831} l (2pa 501) 1 {581} 8 {621} 3 

{! 721 3pa) set (801 3pa) first {621} navigation (661 12pa) 1 1 3 (581 2 pa) point {701 3pa) 1 

={M ! ; 8A 2pa 20 AR 881} n {751 2pa) l {2pa 661} s {2pa 731} 2 {671} 1 {651} 7 

(5pa 701} n {641 2pa} l (2pa 831} s {2pe 501) 2 {581} 1 {621} 7 

{! 721 3 pa} set (801 3pa) first (621) radio {661 12pa) 1 2 4 (581 2pa) point (701 3pa) 9 

={M ! ; 8A 2pa 2D AR 881} n (751 2pa) r (2pa 661} k (2pa 731} 3 {671} 6 {651} 2 

(5pa 701} n (641 2pa) r {2pa 831) k (2pa 501} 3 {581} 6 {621} 2 

(I 721 3pa} set (801 3pa) second {621} radio {661 12pa} 121 {581 2pa} point {701 3pa} 3 

={H I ; 8A 2pa 2D AR 881} n (751 2pa) d {2pa 661} l {2pa 731) 1 {671} 8 (651) 3 

(5pa 701} n {641 2pa) d (2pa 831} l {2pa 501) 1 (581) 8 (621} 3 

(I 721 3pa) set {801 3pa) first {621} navigation {661 12pa) 1 1 5 (581 2pa} point {701 3pa) 7 

={H ! ; 8A 2pa 20 AR 881} n (751 2pa) r (2pa 661} k (2pa 731} 3 (671) 6 {651} 2 

{Spa 701} n {641 2pa) r {2pa 831) k (2pa 501} 3 (581} 6 {621} 2 

(I 721 3pa} set {801 3pe} second {621} navigation {661 12pa} 1 1 5 {581 2pa} point {701 3pa) 5 

={M I ; 8A 2pa 20 AR 881} n (751 2pa) a {2pa 661} l (2pa 731} 4 (671) 7 {651} 8 

(5pa 701) n {641 2pa} a (2pa 831} 1 {2pa 501} 4 (581} 7 {621} 8 

{I 721 3pa} set (801 3pa} first {621} navigation {661 12pa} 1 1 2 {581 2pa} point {701 3pa} 1 

*{M I ; 8A 2pa 20 AR 881) n {751 2pa) d {2pa 661) l {2pa 731) 1 {671} 8 (651) 3 

(5pa 701) n (641 2pa) d (2pa 83!) I {2pa 501) 1 (581) 8 (621) 3 

{I 721 3pa) set (801 3pa) first {621} radio {661 12pa} 1 2 7 (581 2pa} point (701 3pa} 7 

={M I ; 8A 2pa 20 AR 881) n (751 2pa) d {2pa 661) l (2pa 731) 1 {671} 8 (651) 3 

(5pa 701} n {641 2pa) d {2pa 831) l (2pa 501} 1 {581} 8 {621} 3 

(I 721 3pa) set {801 3pa) second {621} radio (661 12pa} 1 2 0 (581 2pa) point {701 3pa} 1 
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Assembly Language Routines 


SERIAL. ASM with RSOUT and RSIN through C0M1 address 

PAGE ,132 

NAME RS232 

Title RS232 Input-Output Functions 
.model medium, basic 

DATA SEGMENT WORD PUBLIC 'DATA 1 

DATA ENDS 

DGROUP GROUP DATA 

CODE SEGMENT PARA PUBLIC 'COOE' 

ASSUME CSrCODE 

PUBLIC RSOUT, RSIN ;Quick Basic function names 

args EQU 6 

Devi ce_Status EQU 1021 ; Status port 

Device~Input EQU 1016 ;Receive port 
Devi ce_Output EQU 1016 ;Transmit port 

DR EQU 1 ;Data Ready 

THBE EQU 32 ; Transmit Hold Buffer Empty 

. ***************************************************************************** 

; Output byte on COM1: assume it is port 1016 decimal 

; usage: CALL RSOUT(IX) 

§ 

; return: nothing 
» 

.***************************************************************************** 


RSOUT 

PROC 


;this function ignores handshaking 


push 

bp 

;Save BP 


mov 

bp.sp 



mov 

dx,Device_Status 

;Check the status 

stat: 

in 

al ,dx 

;Get status 


and 

at , THBE 

;Mask Transmit Hold Buffer Empty byte 


cmp 

al ,THBE 


jne 

stat 

;Uait until Hold Buffer is empty 


mov 

dx,Device_Output 

;Get device port 


mov 

bx,word ptr tbp+args] 

;get output word address in program 


mov 

ax, [bx] 

;get output word from program 


out 

dx,al 

; output data 


pop 

bp 

; Restore BP 


ret 

2 

; Clear Stack 

RSOUT 

ENDP 



.***************************************************************************** 

; Input byte from COM1: 

assume it is port 1016 decimal 

; usage: 

CALL RSIN(IX) 



; return: 

IX = OffffH is 

nothing was received 



i% = byte value of received data 


* 

.***********************************«***************************************** 

RSIN 

PROC 




push 

bp 

;Save BP 


mov 

bp.sp 



mov 

dx,Device_Status 

; Check for Data Ready Flag 


in 

al,dx 

;Get status 


and 

al ,DR 

;Mask out Data Ready bit 


cmp 

al ,DR 



je 

statok 



mov 

ax,0ffffh 

;No data received yet 


jmp 

skip 


statok: 

mov 

dx,DeviceJnput 

;Data Received 


in 

al,dx 

;Get data 


mov 

ah,0 

;Zero out high order byte 

skip: 

mov 

bx,word ptr [bp+args] 

;Get address of data in program 


mov 

Cbx] ,ax 

;Save data to program 


pop 

bp 

; Restore BP 


E 
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Assembly Language Routines 


ret 2 ; Clear stack 

RSIN ENDP 

CODE ENDS 

END 
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Q JOY. ASH yields full two- byte value from joystick port 

PAGE ,132 

NAHE OJOY 

TITLE - OJOY - Joystick SUBROUTINES to give full range readout on joystick 
; position 


DATA SEGMENT PARA PUBLIC 'DATA 1 

DATA ENDS 

DGROUP GROUP DATA 


.model medium, basic 

QJOY CODE SEGMENT PARA PUBLIC ‘CODE’ 
ASSUME CS:QJOY_CODE 

PUBLIC QJOY 


DESCRIPTION: This routine 

Qbasic Call Procedure 

CALL QJOY(XX,YX) • Read joystick positions into variables 

1 XX and YX 


XX X joystick position, 

YX Y joystick position, 

DOS call: 35H functions 

DESTROYS: No registers 


QJOY 

PROC 

far 




push 


bp 



mov 


bp.sp 



push 


ax 



push 


bx 



push 


cx 



push 


dx 



mov 


ah,84h 



mov 


dx,1h 



int 


15h 



push 


bx 



mov 


bx, [bp+83 

;cs:xoff 


mov 


word ptr 

[bx] , ax 


pop 


ax 



mov 


bx, [bp*6] 

;cs:yoff 
[bx] , ax 


mov 


word ptr 


pop 


dx 



pop 


cx 



pop 


bx 



pop 


ax 



pop 


bp 



ret 


4 


« 

• 

Local 

data 



9 

NONE 




QJOY 

endp 




QJOY CODE 

ENDS 





END 


location C integer) BP+08 
location {integer) BP+G6 


;Save register used in routine 

;Save current stack pointer for arguments 


; Get the joystick values 
; Save bx for later use 


; Recover bx 
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AFTERMAT Program Listing 


• AFTERHAT. BAS: RATING SCALE FACTOR COMPARISONS 

1 Version 1.0 (06/15/90) Chapman 

• Version 2.0 (09/30/91) Comstock 

1 J. R. Comstock, Jr., NASA Langley Research Center, 804-864-6643 

i 

1 This program is designed to permit the Subject to make paired 
1 comparisons of each pair of rating scale factors. Output of the 
1 program may be used as input to APPLYWT program for applying these 
1 weights to Rating Scale data. 

i 

1 Written using Microsoft QuickBasic 4.5, no special hardware requirements. 

i 

0EFINT I-N 

DECLARE SUB compare (aspIS, vail!, asp2$, val2!) 

DIM vs(6), label$(6), rv(6), rv5(6), lcomp1(15), lcomp2(15), lchosen(15) 

COMMON SHARED lexit, Ich, j 

DATA 5, 3, 4, 2, 3, 2, 2, 3, 6, 4, 1 ,6, 4, 1,5 
FOR i = 1 TO 15 
READ lcompl(i) 

NEXT i 

DATA 4, 5, 6,4, 6, 6, 3, 1,5, 3, 2, 1,1, 5, 2 
FOR i = 1 TO 15 
READ lcomp2(i ) 

NEXT i 

labelS(l) = 11 Mental Demand " 
labelS(2) = "Physical Demand" 
label$(3) = "Temporal Demand" 
label$(4) = " Performance " 
label$(5) = » Effort » 
label$(6) = " Frustration " 

begin: 

COLOR 7, 1: CLS 
lexit = 0 
FOR i = 1 TO 6 
vs(i) = 0 
NEXT i 

1 Display directions 
LOCATE 1, 72: PRINT "Ver: 2.0" 

COLOR 15, 1: PRINT SPC(22); "RATING SCALE FACTOR COMPARISONS" 

COLOR 7, 1: PRINT : PRINT 

PRINT " The evaluation you are about to complete is a technique that has been" 
PRINT " developed by NASA to assess the relative importance of six factors in" 

PRINT " determining how much workload you experienced. The procedure is simple:" 
PRINT " You will be presented with a series of pairs of rating scale titles (for" 
PRINT " example, Effort vs. Mental Demands) and asked to choose which of the items" 
PRINT " was more important to YOUR experience of workload in the task(s) that you" 
PRINT " just performed. Each pair of scale titles will appear on a separate screen." 
PRINT 

PRINT " Just select the item that you thought was more important for the" 

PRINT " task you just completed." 

PRINT : PRINT : PRINT 

PRINT SPC(20); »<Press RETURN to Begin, ESC to Quit>"; 

1 Wait for CR or ESC 
DO 

a$ = INKEYS 

IF a$ = CHR$(27) THEN COLOR 7, 0: CLS : END 
IF a$ = CHRS(13) THEN EXIT DO 
LOOP 

1 Display static screen stuff 
CLS 

LOCATE 2, 4: PRINT "Rating Scale Factor Comparisons" 

LOCATE 2, 60: PRINT "Comparison of 15"; 
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AFTERMAT Program Listing 


LOCATE 23, 1: PRINT STRINGS(80, 196); 

LOCATE 24, 3 

PRINT "Select the More Important Factor by Nunfcer or CHR$<25); CHR$(24); 

PRINT " keys"; SPC(8); "ESC to Restart"; 

' Comparisons 

FOR j = 1 TO 15 

LOCATE 2. 71: PRINT USING j; 

11 = lcompl(j) 

12 * lcomp2(j) 

compare labelS(il), vs(il), label$(i2), vs(i2) 

IF lexit > 0 THEN GOTO begin 

lchosen(j) * Ich 

LOCATE 11, 30: PRINT SPC(30); 

LOCATE 13, 39: PRINT SPC(2); 

LOCATE 15, 30: PRINT SPC(30); 

told = TIMER 

DO 'delay loop in case user holds key down too long 

tnow = TIMER 
eltime = tnow - told 
IF eltime < 01 THEN EXIT DO 
a* « INKEYS 
LOOP UNTIL eltime > .4 

NEXT j 

1 Display Summary Info 
CLS 

LOCATE 2, 2 

COLOR 15, 1: PRINT » SUMMARY of Comparisons Chosen:": COLOR 7, 1 
LOCATE 4, 14 

PRINT "Top Item"; SPC(11); "Bottom Item"; SPC<9); "Item chosen" 

PRINT 

FOR j * 1 TO 15 

11 « lcompl(j) 

12 > |comp2(j) 

IF lchosen(j) « 1 THEN i3 = il ELSE i3 = i2 
PRINT USING " U "; j; 

PRINT CHR$(179); " «; labelS(il); " "; CHRS(179); " "; labelS(i2); 

COLOR 15, 1: PRINT » "; CHRS(179); » "; labelS(i3): COLOR 7, 1 

NEXT j 

PRINT : PRINT 

PRINT " Enter RETURN to Continue, (ESC to Start Comparisons Over)"; 

DO 

a$ = INKEYS 

IF aS b CHRS(27) THEN GOTO begin 
LOOP UNTIL aS b CHRS(13) 

CLS 

LOCATE 2, 12: PRINT "Rating Weights:": PRINT 
FOR i = 1 TO 6 

PRINT SPC(5); i; » »; labelS(i); SPC<4); vs(i) 

NEXT i 

COLOR 15, 1 
LOCATE 13, 4 

LINE INPUT "Enter Subject Initials (or ID Nunber): "; InitS 
InitS > uCASES(InitS) 

dS b DATES: tS = TIMES 

fildatS = "WT" ♦ LEFTS(dS, 2) + MIDS(dS, 4, 2) ♦ LEFTS(tS, ?)♦"."♦ MIDS(tS, 4, 2) 
fildatS = fildatS ♦ "X" 

PRINT 

PRINT SPC(3); "Saving Comparisons for Subject "; InitS; " in file "; fildatS 
PRINT : PRINT SPC(3); "(Filename based on present Date and Time)" 
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ict = 0 

f flouts = fildatS 

• Save data to output file 

saveit: 

OPEN fi loutS FOR OUTPUT AS #1 

PRINT #1, dS; “ »; tS; ■ fildatS; " InitS 

FOR i = 1 TO 15 

PRINT #1, USING lchosen(i); 

NEXT i 
PRINT #1, 

FOR i = 1 TO 6 
PRINT #1, USING vs(i); 

NEXT i 
PRINT #1, 

CLOSE #1 


ict = ict ♦ 1 

IF ict = 1 THEN filoutS = "UTLAST.UGT": GOTO saveit 
LOCATE 22 , 4 

PRINT "This Concludes the Rating Comparisons, Press RETURN to EXIT!" 
00 

aS = INKEYS 

LOOP UNTIL aS = CHR$(13) 

COLOR 7, 0: CLS 
END 
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' COMPARE Sub 

I 

SUB compare (aspIS, vail I, asp2S, val2l) 
COLOR 15, 1 

LOCATE 11, 30: PRINT "1 aspIS; 
LOCATE 15, 30: PRINT "2 "; asp2S; 
COLOR 7, 1 

LOCATE 13, 39: PRINT "or" 
lexit = 0 


a$ * INKEYS 

IF at = CHR$(27) THEN lexit = 1: EXIT SUB 

IF a$ * CHRS<49> THEN vail = vail + 1: Ich = 1: EXIT SUB 

IF a$ = CHRS(50) THEN val2 = val2 + 1: Ich = 2: EXIT SUB 

IF LEN(aS) » 2 THEN 

IF ASC(aS) ■ 0 AND ASC(RIGHT$(a$, 1)) = 72 THEN 
vail - vail + 1: Ich = 1: EXIT SUB 
END IF 

IF ASC(aS) « 0 AND ASC(RIGHT$(a$, 1)) = 80 THEN 
val2 * val2 + 1: Ich = 2: EXIT SUB 
END IF 
END IF 
LOOP 

END SUB 


F 


APPLYWT Program Listing 


1 APPLYWT. BAS Applies Weightings to Rating data files (Version 2.0) 

1 Version 1.0 (Summer 90) Chapman 

• Version 2.0 (09/30/91) Comstock 

1 J. R. Comstock, Jr. NASA Langley Research Center 804-864-6643 

i 

1 Rating data files are created by NAT Battery (e.g. MD092712.45X), and 

• Weighting files (e.g. WT092714.45X) are created by program RATEWGT. 

1 This program reads both Rating data files and Weighting files and creates 

• a new Rating file with a M W M suffix having original Rating info plus 
1 Mean Ratings and Weighted Ratings. 

1 Program created using Microsoft QuickBasic 4.5. No special hardware or 

• libraries needed. 

< 

DEFINT I-M 

DECLARE SUB header () 

DIH vs(6) 

ON ERROR GOTO errorhandler 
begin: 

• read UTLAST.WGT file 
lerrsect = 1 

OPEN "WTLAST.WGT" FOR INPUT AS #1 
LINE INPUT #1, wtidS 
LINE INPUT *1, wt15$ 

FOR i = 1 TO 6 
INPUT #1, vs(i) 

NEXT i 
CLOSE #1 

WtfilS = MIDS( wtidS, 21, 12) 
dtS « LEFTS( wtidS, 20) 
subidS = MIDS(wtidS, 33, 10) 

menul: 

header 

LOCATE S, 12: PRINT ••Weighting File Menu:” 

LOCATE 8, 8: PRINT "1 - Use: «; wtfilS; " dtS; subidS 

LOCATE 10, 8: PRINT "2 - Select a New Weighting File" 

LOCATE 12, 8: PRINT “3 - EXIT (Esc)" 

DO 

aS * INKEYS 

IF at : "1" THEN GOTO menu2 
IF aS = "2" THEN EXIT DO 

IF aS = “3" OR aS = CHRS(27) THEN COLOR 7, 0: CLS : EN0 
LOOP 

wgtdi rectory: 
header 

PRINT : PRINT " Directory of Weighting Files:" 
lerrsect * 5: PRINT : FILES »WT*.??X" 

selwgt: 

PRINT : LINE INPUT " Enter Name of Weighting file: wtfilS 

wtfilS - UCASES(wtfilS) 

• read selected weighting file 
lerrsect = 2 

OPEN wtfilS FOR INPUT AS #1 
LINE INPUT #1, wtidS 
LINE INPUT #1, wtISS 
FOR i = 1 TO 6 
INPUT #1, vs(i) 

NEXT i 
CLOSE #1 

WtfilS = MIDS(wtidS, 21, 12) 
dtS = LEFTS( wtidS, 20) 
subidS - MIDS( wtidS, 33, 10) 
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menu2: 
header 
COLOR 15, 1 

PRINT M Using Weighting File: wtfilS; M M ; dtS; subidS 

COLOR 7, 1 

PRINT : PRINT M Directory of Task Rating Files: 11 
lerrsect = 6: PRINT : FILES "MD*.??X'' 

selratf i* l: 
lerrsect = 3 

PRINT : LINE INPUT " Enter Name of Task Rating File: ratfilS 

ratfilS = UCASES(ratf i 1$) 

OPEN ratfilS FOR INPUT AS #1 

filenewS * LEFT$(ratf i IS, 11) ♦ »W" 

OPEN filenewS FOR OUTPUT AS M2 
LINE INPUT #1, InIS 
PRINT M2, InIS 
header 

PRINT : PRINT InIS 

iline = 0 
DO UNTIL EOF(I) 
iline = iline • 1 

INPUT #1, etiroe, rtime, rv(1) # rv(2), rv(3), rv(4), rv(5), rv(6) 
sum = 01 : sumw = 01 
FOR i = 1 TO 6 
sum = sum ♦ rv( i ) 

rv5(i ) * (INT((rv(i) + 4) / 5>) * 5 
sunw = sumw ♦ rv5(i) * vs(i) 

NEXT i 

xmean = sum / 61 
wscore = sumw / 15! 

PRINT USING "#####. ##»; etime; rtime; 

FOR i = 1 TO 6 
PRINT USING " ###"; rv(i); 

NEXT i 

PRINT USING 11 ###.###"; xmean; wscore 

PRINT M2, USING "#####.##'•; etime; rtime; 

FOR i * 1 TO 6 

PRINT M2, USING « ###••; rv(i); 

NEXT i 

PRINT M2, USING •' ###.###•'; xmean; wscore 
LOOP 
CLOSE #1 
CLOSE M2 


PRINT 

COLOR 15, 1 

PRINT •• File M ; ratfilS; " Weighted by 11 ; wtfilS; ", Created 
PRINT 11 Press Any Key When Ready...” 

COLOR 7, 1 
DO 

aS « INKEYS 
LOOP UNTIL aS <> ■■ 

GOTO menul 
END 

'ERRORHANDLER 

errorhandler: 
lerrnum = ERR 

IF lerrnum * 53 ANO lerrsect = 1 THEN 
CLOSE 

wtfilS = ■■ 

RESUME wgtdi rectory 


filenewS 
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END IF 

IF lerrnun * 53 AND lerrsect = 2 THEN 
CLOSE 

PRINT « Weighting File utfilS; •• NOT FOUND!" 

RESUME selwgt 
END IF 

IF lerrnun = 53 AND lerrsect = 3 THEN 
CLOSE 

PRINT " Task Rating File wtfilS; “ NOT FOUND!" 

RESUME selratf i l 
END IF 

COLOR 7, 0: CLS 

PRINT "ERROR NUMBER: lerrnun: PRINT 

IF lerrnun = 53 AND lerrsect = 5 THEN 
PRINT " No Weighting Files Found! - EXITING PROGRAM!" 

END 
END IF 

IF lerrnun * 53 AND lerrsect * 6 THEN 
PRINT " No Task Rating Files Found! - EXITING PROGRAM!" 

END 

END IF 

PRINT : PRINT " Press RETURN to RESTART Program from the beginning..." 
PRINT » ESC to Quit" 

DO 

ryS * UCASES( INKEYS) 

IF ryS = CHR$(27) THEN END 
IF ryS » CHRS(13) THEN EXIT DO 
LOOP 

CLOSE 

RESUME begin 
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